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PREFACE 


This book explains how to use the DCT11-EM evaluation module. Although the book presents many 
topics in simplified form, some technical background is assumed on your part. It is assumed, for example, 
that you are familiar with the basics of microprocessor software and hardware. However, you need not be 
familiar with microprocessors manufactured by Digital Equipment Corporation. 

To understand software details such as those contained in the monitor listing (Appendix A), you should be 
familiar with the MACRO- 1 1 language. To understand hardware details, you should be able to read and 
interpret schematic diagrams and data sheets. 

The book is organized as follows. 

Chapter 1 is an introduction to the DCT1 1-EM and contains a specification summary for your reference. 
Chapter 2 explains how to install and power up your DCT1 1-EM. 

Chapter 3 shows you how to operate your DCT1 1-EM using the on-board keypad and switches. 

Chapter 4 shows you how to operate your DCT1 1-EM using a console terminal. 

Chapter 5 provides software information and describes the use of monitor subroutines. 

Chapter 6 gives an overview of the DCT1 1-EM hardware and contains information you will find useful if 
you plan to design external circuitry. 

Appendices A and B contain the DCT1 1-EM monitor listing and schematics, respectively. Appendix C 
contains a summary of error messages. 

You will find that this book requires a high degree of interaction between you and the DCT1 1-EM. 
Chapters 3 and 4, in particular, are structured so that examples are an integral part of the text. 



CHAPTER 1 
OVERVIEW 


1.1 INTRODUCTION 

The DCT1 1-EM is a standalone, single-board computer. It is designed as a tool to introduce you to the 
DCT1 1-AA microprocessor CPU chip and the PD P-1 1 architecture. It contains supporting hardware and 
software which greatly simplify the task of evaluating the DCT11-AA for your application. 

The DCTl 1-EM gives you considerable flexibility in designing your own software and hardware. You can 
write programs to run on the DCTl 1 -EM which are substantially, the same as those written in the versatile 
PDP-1 1 assembly language. You can also design your own hardware interfaces to use with the DCTl 1- 
EM. In fact, your hardware can connect directly to the DCTl l-EM’s internal data paths through an on- 
board, 60-pin male connector. 

This chapter summarizes the features of the DCTl 1-EM. You will find more detail in the chapters that 
follow. 

1.2 THE DCTU-EM AT A GLANCE 
Centra] Processor 

• DCTl 1-AA microprocessor 

• 133 ns cycle time (standard) 

Memory 

• 4 K bytes of RAM, expandable to 8 K bytes 

• 16 K bytes of EPROM which contains the DCTl 1-EM monitor 

Input/Output 

• Two serial ports, one for a console terminal and the other for an auxiliary RS232-C device 

• One 8-bit parallel port 

• One 60-pin connector for use by expansion hardware; allows access to DCTl 1-EM internal data 
paths 

Host Communication 

• Host computer can be connected to the auxiliary serial port for downline loading of programs 

• Character format is asynchronous, 8 bits, ASCII, no parity, one stop bit 

• Available baud rates are: 300, 600, 1200, 2400, 4800, 9600, 19200 

Software 

• Software is EPROM resident 

• Keypad monitor for performing operations with the on-board keypad 

• Console monitor for performing operations with a console terminal and with a host computer 
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On-Board Control Hardware 


• 20-key keypad (4x5 array) 

• HALT push-button switch 

On-Board Displays 

• Two rows of 6-digit octal LEDs 

• User LED 


Interrupts 

• Four levels of interrupt priorities 

• On-board interrupt push-button switch 

Diagnostics 

• Contained in EPROM, automatically run at power-up time 

Documentation (provided with DCTI1-EM) 

• DCTll-EM User’s Guide 

• DCT11-AA (MICRO /T-ll) User’s Guide 

• DC3T9-AA DLART Data Sheet 

Physical 

• Width: 20.3 cm (8 in) 

• Length (including connectors): 27.9 cm (11 in) 

• Height: 3.8 cm (1.5 in) 

• Weight: 450 gm (15 oz) 

Environment 

• Noncaustic environment required 

• Operating temperature: 10 to 40 degrees C 

• Relative humidity: 10% to 90% (noncondensing) 

• Altitude: Up to 2.4 km (8000 ft) 

DC Power Requirements 

• For keypad operation only: 

+5 V (±5%) (a 2 A 

• For console terminal operation: 

+5 V (±5%) <& 2 A 
+ 12 V (±10%) & 50 mA 
-12 V (±10%) 50 mA 
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CHAPTER 2 
INSTALLATION 


2.1 INTRODUCTION 

DCT1 1-EM installation consists of attaching a power supply, powering up, and verifying that the board is 
operating properly. 

2.2 POWER SUPPLY REQUIREMENTS 

The DCTl 1-EM requires a +5 Vdc supply (±5%) capable of delivering up to 2 A. If you plan to use the 
console or auxiliary serial ports, you also need a +12 Vdc supply (±10%) and a -12 Vdc supply (±10%) 
each capable of delivering up to 50 mA. 


WARNING 

To protect yourself against injury from contact with 
circuits that carry high energy, we suggest your 
power supply outputs be limited to no more than 240 
VA. This is in accordance with standards for data 
processing equipment. 

CAUTION 

We recommend that you fuse your power supply 
outputs at 5 A or less to provide overcurrent protec- 
tion to circuits and remote wiring. 

2.3 CONSTRUCTING A POWER SUPPLY CABLE 

The DCTl 1-EM is packaged with a power supply connector and pins with which you can assemble a 
power supply cable. To do this, perform the following steps. 

1 . Select a 1 foot length of medium gauge (10 to 14 gauge) wire and strip the wire about 1/4 inch 
from each end. If you are using multiple-strand wire, twist the strands together at each stripped 
end. 

2. Insert one end of the wire into a pin as shown in Figure 2-1. Crimp the pin to the wire with a 
pair of pliers or a crimping tool and solder the wire. 


PIN 



CRIMP PIN HERE, THEN SOLDER WIRE w >ov. 


Figure 2-1 Attaching Pin to Wire 
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3. Insert the pin in the connector as shown in Figure 2-2. 



Figure 2-2 Inserting Pin into Connector 


4. Repeat steps 1, 2, and 3 for each wire in your connector. (Use different colored wires for easy 
identification.) 

5. Attach the wires to a power supply, making sure they correspond to the correct voltages as 
shown in Figure 2-3. 



Figure 2-3 Power Supply Connector Pin Assignments 


6. Turn on the power supply and use a voltmeter to check that the correct voltages appear at the 
connector pins. 

7. Turn off the power supply and attach the connector to the DCT1 1-EM as shown in Figure 2-4. 
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POWER SUPPLY 



□ CT1 1-EM 


MB'I 0344 

figure 2-4 Power Supply Connector 


You are now ready to power up your DCTl 1-EM. 

2.4 POWERING UP AND VERIFYING CORRECT OPERATION 

Make sure your DCTl 1-EM is on a nonmetallic surface and positioned so that it does not come in contact 
with any conducting objects. Then turn on your power supply. 

When you apply power, the DCTl 1-EM runs its diagnostics automatically. The diagnostics: (1) perform 
checksum tests for the on-board RAM and PROM, and (2) write and read back data to and from the 
DLART. If the diagnostics run successfully, the LEDs display the following. 



This shows that the keypad monitor is active and ready to accept your input. Further information on using 
the keypad is given in Chapter 3. 

In addition to activating the keypad monitor, the DCTl 1-EM also sets these initial conditions: 

• All user RAM is cleared 

• The symbol table is cleared 

• The stack pointer is set to 7400 

• Both serial port baud rates are set to 9600. 

You will learn more about what these initial conditions mean in later chapters. 
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If the two rows of LEDs are blank after you power up, your DCT1 1 -EM probably has major problems. 

The LEDs may display a flashing diagnostic error message after you power up. The meaning of the error 
messages is summarized below. 


UPPER LOWER 

DISPLAY DISPLAY MEANING 



E r r o 


RAM checksum test failed. Try 
replacing RAM chips. 


ROM checksum test failed. Try 
replacing ROM chips. 


RAM and ROM checksum tests failed. 
Board may have major problems. 


DLART feedback test failed. 
Board may have major problems. 


If you suspect your board has major problems, contact Digital Equipment Corporation or the authorized 
distributor from whom you purchased your DCT1 1-EM. The DCT1 1-EM is warranted against defects in 
workmanship for a period of ninety (90) days from the date of delivery. 

2.5 JUMPERING 

There are two metal posts located above the upper left corner of the DCT1 l-EM keypad. Install a jumper 
between these posts if you want to disable the generation of DCT1 1-AA microprocessor cycle slips. If you 
do this, you must also change the DCT1 1-AA's 7.5 MHz clock frequency to a frequency between 3 MHz 
and 6 MHz. To change the clock frequency, remove the 7.5 MHz crystal from the board and install a 
crystal of the desired frequency. 

This is the only jumper that may be installed on the DCT11-EM. 
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CHAPTER 3 
KEYPAD OPERATION 


3.1 INTRODUCTION 

This chapter explains how to operate the DCT11-EM using the DCTll-EM’s on-board keypad and 
switches. When you complete this chapter, you will be able to do the following. 

• Examine and alter the contents of registers in the DCT1 1-AA register file. 

• Examine and alter the contents of memory locations. 

• Enter and execute programs. 

• Debug your programs through the use of single steps, breakpoints, and watchpoints. 

• Perform halts and interrupts. 

• Perform a number of other functions. 

The DCT1 1-EM keypad, switches, and displays are arranged as shown in Figure 3-1. 




MO 1034t> 

Figure 3-1 DCTl I -EM Keypad, Switches, and Displays 
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Figure 3-1 shows two rows of six LED digits which display data, addresses, and other information. Below 
the two rows of LED digits is a single LED (called the user LED) which you can use as an indicator in your 
programs. To the right of the LEDs are the HALT and INT push-button switches. These switches perform 
the functions their names imply; that is, they can halt and interrupt DCTl 1-EM operation. To the extreme 
right is a 4 X 5 array of switches called the keypad. The keypad is used to enter commands, instructions, 
and other information to the DCTl 1-EM. Pressing keys will generally cause responses to appear on the 
LED displays. 

3.2 NUMBER SYSTEM 

Information that is input or output via the keypad/LED combination must be represented in octal 
notation. Since the DCTl 1-AA is a 16-bit processor, the acceptable range of octal inputs and outputs is 
000000 through 177777. 

3.3 EXAMINING REGISTERS 

To examine the contents of a DCTl 1-AA internal register, you must first place the DCTl 1-EM in register 
mode. Do this by pressing the REG key. The LEDs display: 


r E 


Now you may examine a register by pressing any of the following keys: 

0 through 9 
or 

CLR, which is equivalent to key 0. 

In general, the name of the register being examined appears on the upper row of LEDs, and the contents of 
the register appears on the lower row of LEDs. The exception to this is when the watchpoint (WP) is 
examined. In that case, an address called the watchpoint (WP) address is displayed on the upper row of 
LEDs, and the WP contents are displayed on the lower row. 

Keys 0 through 7 select R0 through R7, the eight registers in the DCTl 1-AA register file. Registers 6 and 
7 are dedicated and are referred to as the stack pointer (SP) and program counter (PC), respectively. 

Key 8 selects the processor status (PS) word. Only the lower 8 bits of the PS word are meaningful. The PS 
word contains the current processor priority, the processor condition codes (N, Z, V, and C), and the T-bit. 

Key 9 selects the watchpoint (WP), The WP is useful in connection with program debugging and is 
discussed in Paragraph 3.8.3. 
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NOTE 

If you have just powered up your DCT11-EM or if 
you have halted its operation, it is not necessary to 
press the REG key to get into register mode. 

The upper row of LEDs will display: 


p c 


The lower row of LEDs will display the current 
value of the PC, and you can simply press one of the 
keys 0 through 9 or CLR to select a register. 

Examining Registers - Example 1 

You want to examine the contents of various registers. It is assumed that the registers still contain their 
initial (power-up) values. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


H 

□ 

□ 

□ 

CLR 

□ 

□ 









0 

0 

0 

o 

o 

o 


0 

0 

0 

0 

0 

0 


0 

0 

6 

5 

0 

0 


0 

0 

0 

1 

0 j 0 

0 


0 

0 

0 

3 

0 

n 

0 


0 

0 

0 

0 

0 

0 



Get into register mode 


The ADV and BAC keys allow you to examine register contents sequentially. Pressing the ADV key allows 
you to examine registers in ascending order. You cannot advance beyond the WP. Pressing the BAC key 
allows you to examine registers in descending order. You cannot back up beyond RO. 

If you want to examine registers nonsequentiafly after you have pressed ADV or BAC, you must first press 
the REG key to reinitialize register mode. Otherwise, you will alter the contents of the register you are 
currently examining. 


3-3 


















Examining Registers - Example 2 

You want to examine more registers. You begin by examining them sequentially. It is assumed that the 
registers still contain their initial (power-up) values. 


KEY 


REG 


ADV 


ADV 


ADV 


iBAC 


BAC 


□ 


CLR 


REG 


□ 


BAC 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 




Get into register mode. 


You wanted to examine 
R4 but you altered RO 
instead. 


Clear the incorrect entry. 


This is how to examine R4. 


Now you're sequentially 
examining again. 


3.4 ALTERING REGISTERS 

To alter the contents of a DCT1 1-AA internal register, you must first examine the register as described in 
Paragraph 3.3, To review, this means you must place the DCT1 1-EM in register mode by pressing the 
REG key and examine the desired register by pressing one of the keys 0 through 9. Once you have done 
this, press the EXA key and alter the contents of the selected register by pressing keys 0 through 7 in the 
desired order. 
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The previous contents of the register will be cleared and you will see the new contents being shifted in from 
the right side of the lower row of LEDs as you press keys. 

If you wish to clear the contents of a register, press the CLR key after you have pressed the EX A key. 
Pressing the CLR key also clears a register while you are entering data. 

Altering Registers - Example 1 

You want to set register R3 to 000232 and the SP to 6000. It is assumed that the registers still contain 
their initial (power-up) values. 


KEY 


UPPER 

DISPLAY 


LOWER 

DISPLAY COMMENTS 


REG 




r 

E 

G 









Get into register mode. 





E 




r 

3 




0 

0 

0 

2 

2 

0 

Examine R3. 





EXA 




2 




0 

0 

0 


0 

0 

Enter 232. 





E 




'Ll 

3 

r 



0 

oU 

0 

0 

2 






E 




r 





0 

0 

0 

O 2 

3 






□ 




r 

3 




0 

0 

0 

2 

3 

2 







CLR 




r 

3 




0 

0 

0 

0 

0 

0 

You change your mind, 
and clear R3 instead 






REG 




r 

E 

G 









Get back into register 
mode to change another 
register. 





□ 




s 

P 




0 

0 

2 

li 

0 

0 

Examtne R6 {the SP). It 
currently = 7400. 






EXA 




s 

P 




0 

0 

7 

4 

0 

0 

Set SP = 6000. 






□ 



j 

1 

S j P 




0 



0 

0 

0 

2 

2 







□ 




s 

J 

J 



0 

0 

0 

2 

2 

0 
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s P 


0 

0 

7 

E 

— 1 

0 

0 


71 

7 


6 

0 

j 

0 


The ADV and BAC keys allow you to alter register contents sequentially. Pressing the ADV key allows 
you to alter registers in ascending order. You cannot advance beyond the WP. Pressing the BAC key 
allows you to alter registers in descending order. You cannot back up beyond RO. 

Press the ADV or BAC keys until you arrive at the register you want to alter, then press the desired 
sequence of keys 0 through 7 to enter the data. If you want to clear the register, press CLR. If you want to 
alter registers nonsequentially after you have pressed the ADV or BAC keys, you must first press the REG 
key to reinitialize register mode. Then press 0 through 9 to select the desired register, followed by EXA, 
followed by the data you wish to enter. 

It is generally easier to stay in sequential mode and step forward or backward to the desired register than 
to perform nonsequential alterations. 

Altering Registers - Example 2 

You have just completed example 1 and now want to sequentially change some registers. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


BAC 


E 


r 

7 

1 



0 

0 

7 

7 

71 

0 




FI 




r 

E 

7 

J 


7 

0 

0 

E 

7 

4 




1 3 




. 

• 




0 

0 

E 

0 

4 

3 




BAC 



n 

71 

4 




0 

0 

E 

E 

7 

0 




BAC 


7 

_i 

7 

7 

L 



0 

0 

E 

• 

7 

0 




□ 




r 

7 




0 

0 

0 

7 

0 

1 




ADV 




r 

7 

L 


E 

0 

0 

E 

7 

0 




BAC 


1 

_j 

n 

r 



n 

3 

L 



0 

0 

0 

7 

0 

1 


R5 is now alterable. 


Enter 43. 


R4 is now alterable. 


R3 is now alterable, 


Enter 1 . 


R4 is now alterable. But 
now you want to clear R3 
and alter RO. 
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0 0 0 0 0 0 R0 is now alterable. 


3.5 EXAMINING MEMORY LOCATIONS 

To examine a memory location, you must first place the DCT1 1-EM in address mode. Do this by pressing 
the ADR key. The first time you do this, the LEDs display: 



Subsequently, when you press the ADR key, the upper row of LEDs displays: 



and the lower row of LEDs displays the most recently examined address. 

Enter the address of the memory location you wish to examine by pressing the appropriate sequence of 
keys 0 through 7 . 

The previous address will be cleared and you will see the address you are entering being shifted in from the 
right side of the lower row of LEDs as you press keys. 

If you make a mistake entering your address, you can press the CLR key to clear your entry and try again. 

Once you are satisfied with the address you have entered, press the EXA key. The address of the location 
you are examining (the address you just entered) appears on the upper row of LEDs, and the contents of 
this location appear on the lower row of LEDs. Only even addresses can be examined. If you enter an odd 
address, it is rounded down when you press the EXA key. 
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Examining Memory Locations - Example I 

You have just powered up your DCTi I -EM and want to examine some memory locations. There is a 
program that resides in the DCTI 1-EM called the monitor which begins at address 140000. You will learn 
more about the monitor later, but for now, all we want to do is examine some of its locations. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


a 

□ 

□ 

□ 

0 

0 

□ 

[exa] 




H 

d 

d 

71 

L .. 

n 

L. 


0 

T 

0 

0 

0 

0 





L_ 

i7 

L_ 

\7 

! 

1 r 

i 

1 



U 
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. 

1! 

11 

1 


T 
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0 0 0 0 114 


A d 


d r 


A d I d r 


Add 


d d 


0 

0 

7 

[7 

— I — 

4 0 




0 

1 01 

0 1 1 4, 0 

. 1 1 1 

0 


0 

1 

4 j 0 j 0 

0 



il 

0 ! 0 


0 


0 

0 

0 

1 | 6 

7 


Gel into address mode. 


Enter 140000. 


The ADV and BAC keys allow you to examine memory locations sequentially. Pressing the ADV key 
allows you to examine memory locations in ascending order. Advancing beyond address 177776 results in 
examining locations starting at 000000. Pressing the BAC key allows you to alter registers in descending 
order. Backing up beyond 000000 results in examining locations starting at 177776. 

If you want to examine memory locations nonsequentially after you have pressed ADV or BAC, you must 
first press the ADR key to reinitialize address mode. Otherwise, you will change the contents of the 
memory location you are currently examining. 

Examining Memory Locations - Example 2 

You have just finished example 1 and now want to examine more locations in the monitor. You start by 
examining them sequentially. 
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KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


|apv| 

ADV 

AOV 

BAC 

ADR 

□ 

0 

□ 

□ 

□ 

□ 

EXA 

[bacI 


0 

1 

r - 

5 

“1 

3 

3 

i - 

0 






— 


0 

0 

0 

t 

6 



n 
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6 

[’. 


k 


0 

V 

il 

1 

6 

F 


, 

k 

a 

0 

k 

7 


0 

F 

O 

0 

0 1 1 




0 

1 

0 

0 

1 

4 


0 

0 

n 

11 

n 

i 

7 

° 


0 

0 

• 

a 

k 

L 

1 


0 

r 

4 

n 

7 

1 

0 


E 

4 

0 

i 

0 

1 


1 

4 

0 

0 

0 

4 


1 

F 

7 

0 

0 

6 


1 

4 

0 

E 


F 



F 

4 

0 

O 

o 


0 

0 

F 

"H 

T 1 

7 










M 

4 

1° 

0 | 7 | 6 


F 

F 

N 

1 3 j 0 1 

6 


Reinitialize address 
mode for nonsequcniial 
examine. 


You try to examine 

140101. 


The address is rounded 
down and you examine 
140100. 


Now you're sequentially 
examining again. 
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3.6 ALTERING MEMORY LOCATIONS 

To alter the contents of a memory location, you must first examine the memory location as described in 
Paragraph 3.5. To review, this means you must place the DCT11-EM in address mode by pressing the 
ADR key and examine the desired location by pressing the appropriate sequence of keys 0 through 7. 
Then press the EXA key. 

The contents of the location you are examining can now be changed by pressing keys 0 through 7 in the 
desired sequence. The previous contents of the location will be cleared and you will see the new contents 
being shifted in from the right side of the lower row of LEDs as you press keys. 

Pressing the CLR key will clear the location before or during data entry. 

Altering Memory Locations - Example 1 

You have just powered up your DCT11-EM and want to alter some memory locations. Locations 2000 
through 2006 are in the user RAM area and will be used in the following examples. Later on, you will 
learn more about the availability of DCTl 1-EM memory and address space, but for now the discussion 
will be limited to these locations only. 


UPPER LOWER 

KEY DISPLAY DISPLAY COMMENTS 


AOR 



1 

A j d 

d 

Li 

r 



0 

0 

0 

0 

0 

0 

Get into address mode. 






E 


* 

d 

n 

r 

L 


0 | 0 

. 1 


! 

2 

2 

Enter 2004 





E 



A 

d 

d 

r 

r 




0 

0 

7 

1 

2 

1 

You made a mistake and 
entered t instead of 0. 





E 



A 

d 


r 



0 

0 

0 

0 

O 

0 

Clear entry. 







E 



A 

<j 

7 

21 



0 

0 

2 

2 

2 

1 

Try again - enter 2004. 





□ 



A 

d 

d 

r 



L 


0 

0 

0 

0 

2 

0 







E 


L 

A 7 

d 

r 



0 

I 4 

. 

2 

O 

0 






□ 


M 7 

1 

d 

1 

r 



0 

O 

2 

O 

0 

4 






EXA 


0 

0 

2 

0 

O 

1 


0 

0 

4 

1 

0 

O 

2004 is currently 
empty. 





□ 


0 

O 

2 

1 

2 

4 


2 

0 

O 

0 

2 

3 

Enter 32- 
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□ 

ADR 

L_l 

□ 

□ 

□ 

0 

EXA 

□ 



— 

0 

7 

0 

E 

3 

7 


0 

0 

2 

0 

0 

4 


0 

0 

0 

0 

0 

2 
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• 

0 

7 

2 

7 


1 

7i 

71 

2 
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0 
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0 

2 

E 

0 

0 


0 

0 

7 

0 

r. 

0 


0 

0 

7i 

0 

0 

1 


Back to address mode to 
aiier another location 
Note — most recent address 
examined is displayed. 


Enter 2000. 


2000 is currently 
empty. 


Enter 1 . 


The ADV and BAC keys allow you to alter memory locations sequentially. Pressing the ADV key allows 
you to alter memory locations in ascending order. Pressing the BAC key allows you to alter memory 
locations in descending order. 

Press the ADV or BAC keys until you arrive at the memory location you want to alter and press the 
desired sequence of keys 0 through 7 to enter the data. Tf you want to clear the memory location, press 

CLR 

Altering Memory Locations - Example 2 

You have just completed example 1 and now want to sequentially alter memory locations. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


ADV 


E 

0 

E 

0 

E 

2 


0 

0 

0 

0 

' 

EE 

Location 2002 is now 
alterable. 





E 


0 

0 

E 

0 

h 

2 


0 

E 

7i 

0 

0 

E 

Enter 47. 





□ 


0 

0 

2 

0 . 

0 

fT 


0 

0 I 

1 0 

0 

4 

7 






ADV 


0 

0 

2 

7j 

0 

4 


0 

0 

r 

0 

0 

3 

17 

Location 2004 is now 
alterable. 



























Ente< 5. 


□ 

ADV 

□ 

□ 

BAC 

L_J 

IclrI 




Location 2006 is now 
alterable. 


Enter 22 


Location 2004 is now 
alterable 


Clear it. 


3.7 ENTERING AND EXECUTING A SIMPLE PROGRAM 

In this paragraph, we will tie together the material presented thus far by entering and running a simple 
program. It is assumed you are familiar with an assembly language instruction set. A full description of the 
instruction set used in the following example is found in Chapter 6 of the DCTll-AA User's Guide (EK- 
DCTlt-UG). 


The following program takes a number in register Rl, adds it to a number in register R2, and puts the 
result in register R3. 

Octal Code Instruction Comments 

010103 MOV R1,R3 Get first term. 

060203 ADD R2,R3 Add second term. 

000000 HALT Halt program execution. 

We will place this program in user RAM, starting at address 2000. 


KEY 


UPPER 

LOWER 


DISPLAY 

DISPLAY 

COMMENTS 


ADR 






7 

d 

a 

r 





d 

d 

i 

: 



A 

d 

d 

r 




A 

1 

d 

r 



Most recently exam- 
ined address shown 
on lower LEDs. 



Examine 2000. 
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E 


A d j d r 

( 



3 0(2 

0 0 0 


□ 

□ 

□ 

□ 


0 

□ 

□ 

0 

□ 


0 0 2 0 0 


0 0 


2 1 0 0 


O 0 


0 , 0 


0 

0 2 

| 

0 | 0 

0 



1 



0 0 


2 0 


0 | 2 


0 0 12 


0 1 0 


0 2 


0 0 


2(0012 


0 2 


0 0 | 2 
l 





1 


1 


Current contents of 

EXA 


0 

0 2 

0 

0 1 0 


location 2000 are 




L_ 


1 


shown on lower LEDs. 


0 0 O 0 I 0 1 


0 0 


1 I 0 


0 11,0 


0 t 0 


0 110 


0 j 

3 oj 


3 1 0 t 

3 0 

1 0 

i 10 

37 




■ J— 




ADV 


0 lo 

2 jo 

1 

2 



Current contents of 
2002 are shown on 
lower LEDs 


0 i 0 


0 0 0 6 


0 0 


010160 


0 0 10 


0 2 


0 0 


0 6 


0 3 




I 

— 




ADV 


III 

°M° 

3J 

4 


2004 are shown on 
lower LEDs. 




0 0 

2 

0 

0 1 4 


0 

0 j 0 

° 

0 

0 

CLR 


_L 

u 


_L_ 








Enter first instruction. 
You don't need to enter 
leading zeroes. 


Examine next address 


Enter second instruction. 


Examine next address. 


Enter third instruction. 
HALT is entered by 
clearing the location. 
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Now place some numbers in R1 and R2 that the program can work with. Also make sure R3 is cleared. 
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Examine 2002. 


|APV| 

ADV 

REG 

□ 

□ 

□ 



I 

X 

2 | 0 3 


0 

o 

L°_ 

0 | 0 0 


J 

T 

TT 


0 

o 

o 

0 0 1 2 

1 


0 

0 0 

1 

0 0 3 


0 

0 0 

0 0 0 


Examine 2004. 


Get into register mode. 


Examine registers. 


Everything O.K 


Now run the program. Set the PC to the starting address of the program (2000) and press the GO key to 
begin program execution. Since you are currently in register mode, press the ADV key until you get to the 
PC. 


|ADV| 

□ 

□ 

0 

0 




p 

c 






p 

c 










C 











p 

« 






_ 

p 

0 

X 





p 

t_ 

11 

X 

_ 

n 

— 


Current contents of 
PC shown on lower 
LEDs. 



Enter 2000, 


Execute the program. 


The program is now halted. The current PC (2006) is displayed on the lower row of LEDs. 
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Check R3 to find out if the program executed properly. Since you are in register mode, press the BAC key 
until you get to R3: 




o o 


o o ! s 


and the result is correct. 

3.8 WORKING WITH A LONGER PROGRAM 

Consider a program that calculates the sum of all the numbers from 0 to n, where you specify n. That is, 
the program determines: 


n 

Z‘ 

X - 0 

You place the vaiue of n in RO, and the program deposits the sum it calculates in memory location 2044. 
Use the keypad to enter the following summation program starting at location 2000. 



Octal 



Location 

Code 

Instruction 

Comments 

2000 

005001 

CLR R 1 

Set R 1 = 0. 

2002 

020001 

CMP R0,R 1 

R0 contains n. 

2004 

003413 

BLE 2034 

Illegal input (n < 0)7 

2006 

005037 

CLR &#2044 

No, start operation by clearing 2044. 

2010 

002044 



2012 

010037 

MOV R0.(« #2044 

Place first value of n in 2044. 

2014 

002044 



2016 

005300 

DEC R0 

n = n— 1 

2020 

060037 

ADD R0,fe#2044 

Add next value (n — 1 ) to 2044. 

2022 

002044 



2024 

102404 

BVS 2036 

Overflow’ 7 

2026 

020001 

CMP R0.R1 

No overflow. 

2030 

003372 

BGT 2016 

Continue operation if n > 0. 

2032 

000000 

HALT 

Operation complete if n = 0. 

2034 

005000 

CLR R0 

Illegal input. Clear R0, 2044. 

2036 

005037 

CLR &#2044 

Overflow. Clear 2044. 

2040 

002044 



2042 

000000 

HALT 

Illegal input or overflow occurred. 

2044 

xxxxxx 


Initial contents of 2044 irrelevant. 
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To test the operation of the program, deposit a value of 10 (octal) into R0. The program should sum 1 0 + 
7 + 6 + 5 + 4 + 3 + 2+1 (octal) in memory location 2044 to produce 44 (octal). Note that this is 
equivalent to having a value of 8 (decimal) in R0 and letting the program sum 8 + 7 + 6 + 5 + 4-t-3 + 2 + 
I (decimal) to produce 36 (decimal). 

Set R0 = 10 
SP = 7400 
PC = 2000 

Press the GO key. 

The result should be: 


-Pjc 


0 0 


The program halted at location 2032. Now examine location 2044. 
The result should be: 


O 0 


O 0 


3.8.1 Using the Single-Step Function 

The single-step function is a powerful program analysis toot. It allows you to execute your program one 
instruction at a time. At the end of each instruction, you may examine various registers and memory 
locations to determine how the program has affected them. 

To perform the single-step function, press the SST key. 

Result: the instruction currently pointed to by the PC is executed. 

Let us now single step through the preceding summation program. First set up your initial conditions: 

Set R0 = 10 
SP = 7400 
PC = 2000 
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Then key in the following. 



□ 

H 

□ 

□ 

— 

EX A 

SST 

— 

REG 

H 



Yes. 


201 6 executed. 


Did RO get decremented? 


Yes. 
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2020 executed. 


SSI 


ADR 


EXA 


SST 


SST 


SST 


SST 


REG 


□ 


SST 


ADR 


EXA 




Has RO been added to 2044? 


Yes. 


2024 executed. 


2026 executed. 


Program branched correctly. 


201 6 executed. 


Oid RO get decremented 7 


Yes 


2020 executed. 


Did RO get added to 2044? 


Yes. 


S ou can continue executing the program one instruction at a time by repetitively pressing the SST key. 

3.8.2 Using Breakpoints 

The use of breakpoints is another means of analyzing and debugging your programs. Breakpoints cause 
vour program to halt whenever they are encountered. When the program is halted, you can then examine 
vinous registers and memory locations to determine how the program has affected them. 

I: there were no debugging aids, you would have to insert breakpoint (BPT) instructions in your program 
i_-.d write a breakpoint trap handling routine if you desired breakpoints. The DCTl 1-EM, however, does 
;-.:main debugging aids and provides a convenient means of inserting up to four breakpoints via the 
tr. pad. Do not attempt to set breakpoints by inserting BPT instructions in your program. If you do this, 
■ - will get an error message when you try to execute the program (see Appendix C). 
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To insert breakpoints, press the BPT key. 
The upper row of LEDs displays: 


b - I P n] t 1 


and the lower row 1 of LEDs displays the current address of breakpoint 1. If breakpoint 1 is not currently 
set, the lower row of LEDs displays: 


0 o 


0 0 0 0 


You can then press the appropriate sequence of keys 0 through 7 to enter the address of breakpoint 1. 

You can set up to four breakpoints in this way. Use the ADV and BAC keys to examine breakpoints 1 
through 4 and press the appropriate sequence of keys 0 through 7 to enter an address for each breakpoint. 

If you press BAC while you are examining breakpoint 1, you are examining something called the 
watchpoint address. The use of the watchpoint is explained in Paragraph 3.8.3. 

Breakpoints are recognized only if you use the GO key or the “Go With LEDs” special function 
(Paragraph 3.12.2) to execute your program from the keypad. Breakpoints are disabled when you single 
step through a program. 

When you execute a program with breakpoints in it (by pressing the GO key, for example), your program 
halts at the address of your first breakpoint without executing the instruction at that address. The 
instruction at the breakpoint address is executed when you resume program execution (e.g., by pressing the 
GO or SST keys). 

Using Breakpoints - Example 

We want to set two breakpoints in the summation program shown in Paragraph 3.8. Set the first 
breakpoint at address 2020 to make sure RO has been decremented properly. Then set the second 
breakpoint at address 2024 to check the results of the cumulative addition. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


BPT 







Assume no breakpoints 
have been previously set. 


Enter 2020. 
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Set breakpoint 2. 


□ 


ADV 


□ 

□ 


□ 


b , r I P 


b r P n t 2 0 


r [ P | n 


b r P n t 2 


0 0 0 0 2 0 


□ 

b 

P j n 

t 


0 

2 [ 


b r P 


Enter 202* 


Set your initial conditions as before (RO = 10, SP = 7400, PC = 2000) and execute the program. 


E 




P 

c 


r 


F 

0 

2 

[7 

2 

0 

First breakpoint 
encountered. 





REG 




1 r 

iii 

G 





Ll 



Otd RO get decremented* 





□ 




i ; 

r | 

i 

0 

1 




0 

1 ] 

0 ; 0 ! 0 

1 i 

0 

7 

Yes 





GO 




jr 

c 



■ 

i 

0 

F 

2 

0 

2 

4 

Resume execution 


Examine address 2044 to see if the first addition was performed correctly. 


ADR 





Add r 



Most recently exam- 
ined address si town 
on fower t £ (X 



Examine 2044. 
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Addition performed 
correctly 


□ 

[exa] 



REG 





1 1 

A; d i d 

i 1 

Li 



0 

0 

2 

0 

* 

4 




p 

c 

: 




r 

r 

E 






J 

r 

(7 

D 

r 




E 

c ' i 

. i - 



Resume execution. 


Old RO get decremented 3 


Yes. 


Resume execunon. 


3.8.3 Using the Watchpoint 

In Paragraph 3.3 we identified the watchpoint (WP) and showed how it could be examined. In this section, 
you will learn how to use the WP for program analysis and debugging. 

The watchpoint is a convenient means of monitoring and altering a memory location. Once you set the 
watchpoint address to the address of a memory location, you can examine and alter that location just as 
you would a register. To set a watchpoint address, press the BPT key, then the BAC key. 

The upper row of LEDs displays: 


P n t i A d r 


and the lower row of LEDs displays the current WP address. 
If the WP is not set, the lower row of LEDs displays: 


O 0 O O 0 0 


You may now enter the new WP address by pressing the desired sequence of keys 0 through 7. You can 
clear the WP by setting its address to zero. 
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Using the Watchpoint - Example 1 

In our summation program in Paragraph 3.8, we used location 2044 to deposit our accumulated result. 
Since wc would like to examine (and possibly alter) this location frequently, we set our watchpoint address 


at 2044. 


KEY 


UPPER 

DISPLAY 


LOWER 

DISPLAY COMMENTS 


BAC 

□ 

□ 

□ 

□ 


b 

r 

P 

n 

TTT 

. I 


P 

5 

t 

A 

d 

r 


P 

n 

t 

A 

d | r 


p 

n 

7 

A 

d 

r 


P 

T1 

T 

d 

L 


P 

n 

t 

3 

7T7 

1 



Current value of BP1 
displayed on 
lower LEDS. 


Enter watchpoint address 
of 2044. 


Now we can examine and alter the contents of location 2044 just as we would a register. If you run the 
summation program in Paragraph 3.8 and want to inspect the result, do the following. 


REG 



EXA 


CLR 




Current contents of 
2044 shown on 
lower LEDs. 


Current contents of 
2004 shown on 
lower LEDs. 


0 0 


Get into register mode. 


Examine WP. 


Clear it. 


You have just cleared the contents of location 2044. 

The watchpoint can be used in conjunction with the single-step function to continuously monitor the 
contents of a memory location. When this is done, the contents of the watchpoint appear on the upper row 
of LEDs, and the current PC appears on the lower row of LEDs. 
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Using the Watchpoint - Example 2 

You are still working with the summation program in Paragraph 3.8. You have established a watchpoint at 
location 2044, as shown in the previous example, and want to continuously monitor the contents of this 
location as you single step through the program. 

Set your initial conditions as before (R0 = 10, SP = 7400, PC = 2000) and key in the following. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


SST 


SST 


SST 


SST 


SST 


jSST 


SST 



0 

xtl 

0 

L 


0 

“1 

2 

0 

0 

4 


0 

0 

2 

0 

5 



0 j 0 

2 

3 

1 

2 


0 

0 

2 

•I 

i 

6 



0 

2 

0 

5 

0 


0 

0 

2 

0 

2 

4 

L_ 


2000 executed; 

2044 contents shown on 
upper LEDs. 


2002 executed. 


2004 executed 


2006 executed. 


2012 executed. 
2044 has changed. 


201 6 executed. 


2020 executed. 
2044 has changed, 


And so on. When you finish executing the program (e.g., after you have executed instruction 2032 in the 
example above), the upper row of LEDs displays: 


p c 


and the lower row of LEDs displays the current PC. 

3.9 USING THE HALT SWITCH 

Pressing the HALT switch causes you to unconditionally halt the operation of your program and return 
control to the DCTl 1-EM keypad. When you press the HALT switch, the upper row of LEDs displays: 


and the lower row of LEDs displays the current PC. 
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You can use the HALT switch, for example, to escape from an infinite loop your program is executing or 
to inhibit hardware problems which are interrupting the proper operation of the DCT1 1-EM. 

After pressing HALT, you are in register mode and can readily examine the contents of the DCTI 1-EM 
registers as described in Paragraph 3.3. 

3.10 THE INT SWITCH 

Pressing the INT switch causes you to generate a power-fail (PF) nonmaskable interrupt. Pressing this 
switch will have no effect on the operation of the DCTI 1-EM unless you specifically write a program that 
recognizes input from it. The program in the following example shows you how to use this switch to 
experiment with interrupts. Also refer to Chapter 6 for more information on interrupts. 

Using the INT Switch - Example 

This program simply loops on itself at location 1510 until you press the INT switch. Then the current PC 
and PS are pushed onto the hardware stack and the DCTI 1-EM goes to locations 24 and 26 for its new PC 
and PS, respectively. Location 24 is called the power-fail vector and usually points to a power-fail service 
routine. The first line of your program, however, changes location 24 to point to your own “power-fail 
service routine.” This routine, which you specify to start at location 1514, is not a power-fail service 
routine at all, but a routine that sets RO to the number of times (in octal) that the interrupt switch has been 
pressed. 

Enter the following. 



Octal 



Location 

Code 

Instruction 

Comments 

1500 

012737 

MOV #I5I4.<&#24 


1502 

001514 


Set power-fail vector to "service 




routine.” 

1504 

000024 



1506 

005000 

CLR R0 

Initialize R0. 

1510 

000777 

BR 1510 

Await interrupt. 

1512 

000000 

HALT 


1514 

005200 

INC R0 

Start of “service routine.” 

1516 

000002 

RTI 

Restore old PC and PS. 


Start the program at 1500 and press the INT switch a number of times. The upper and lower row of LEDs 
will be blank while you are pressing the INT switch. Each time you press INT, you execute the “service 
routine” which increments RO. When the routine is done, it returns to 1510 to await another INT switch 
press. Press the HALT switch to suspend operation and examine R0. 

3.11 THE USER LED 

The user LED is a general-purpose indicator lamp that your program can use to indicate the status of some 
condition. You can turn on the user LED by writing 00001 1 to port C of the 8255A parallel port chip (see 
Paragraph 6.5.1). Port C of the 8255A chip has an address of 177444. Writing 000010 to port C of the 
8255A chip turns off the user LED once it has been turned on by your program. 
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User LED - Example 

The following is a short program that turns the user LED on and off. Use the keypad to enter this program 
starting at location 1000. 



Octal 



Location 

Code 

Instruction 

Comments 

1000 

012737 

MOV #1 17 7444 

Write 1 1 to port C. 

1002 

000011 



1004 

177444 



1006 

012700 

MOV # 100000.R0 

Put a large number in R0. 

1010 

100000 



1012 

077001 

SOB R0,1012 

Loop for a while. 

1014 

012737 

MOV #! 0,(s,#l 77444 

Write 10 to port C. 

1016 

000010 



1020 

177444 



1022 

012700 

MOV #!00000,RO 

Put a large number in R0. 

1024 

1 00000 



1026 

077001 

SOB R0J026 

Loop for a while. 

1030 

000137 

JMP &#1000 

Loop infinitely. 

1032 

001000 




3.12 PERFORMING KEYPAD SPECIAL FUNCTIONS 

There are five types of special functions you can perform through the use of the DCT) 1-EM keypad. 


Function Number 


Function Name 


0 

1 

2 

3 

4 


Cancel breakpoints 
Go with LEDs 
Start console 
Set baud rates 
Release protection 


To perform one of these special functions, you must first place the DCT1 1-EM in function mode. To do 
this, press the FNC key. The LEDs display: 



and you can now select a function by pressing any of the keys 0 through 4 or CLR, which is equivalent to 
0. When you have done this, the number of the selected function appears on the bottom row of LEDs. The 
selected special function is then activated by pressing the EXA key. 

The following paragraphs describe the operation of these special functions. 
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3.12.1 Function 0 - Cancel Breakpoints 

Function 0 clears all four breakpoint addresses and the watchpoint address. When function 0 is activated, 
the upper row of LEDs displays: 


IP jC 

-I— 


and the lower row of LEDs displays the current value of the PC. The DCT1 1-EM is left in register mode. 

Function 0 - Example 

You are debugging a program you just entered and want to clear all the breakpoints and watchpoints 
associated with an old program. 


KEY 


UPPER 

DISPLAY 


LOWER 

DISPLAY 


FNC 


□ 


EXA 


BPT 


BAC 


ADV 


Or 


ADV 




L 







L 


°\ 




Current PC shown on 
lower LEDs. 


0 

0 

0 0 

0 

0 


0 

O 

O 

° 

0 

0 


0 

0 0 0 

0 

— 

0 


0 

0 

h 

0 

0 

0 1 


COMMENTS 


Get into function mode. 


Select function 0. 


Verify breakpoint 1 
cleared, 


Verify watchpoint address 
cleared. 


Breakpoint 1 again 


Verify breakpom! 2 
cleared. 


31 1 12 Function I - Go With LEDs 

tkithin the DCT1 1-EM are a number of routines your program can call to display values on the LEDs (see 
fciragraph 5.3.1). For these routines to operate correctly, you must explicitly turn on the LEDs before you 
all a routine. One way to turn on the LEDs is to include a MOV #7,@# 177444 instruction in your 
program (see Paragraph 5.3. 1.1). Another way is to execute your program by activating function 1 rather 
Ain by pressing the GO key. Activating function 1 turns on the LEDs and starts your program. 


3-27 

















3.12.3 Function 2 - Start Console 

If you connect a console terminal to your DCT11-EM, you will use function 2 frequently. Activating 
function 2 starts a program called the console monitor. The console monitor resides in the on-board 
PROMs and allows you to enter, execute, and debug programs through the use of a console terminal rather 
than the keypad. The console monitor also allows you to perform other operations and is described in more 
detail in Chapter 4. 

Before activating function 2, connect a console terminal to the DCTl 1-EM and select an appropriate baud 
rate by activating function 3 (see Paragraph 3.12.4). 

When function 2 is activated, the upper and lower LEDs are blank and the message: 

TEM CONSOLE MONITOR V1.0 
TEM> 

appears on the console terminal. 

3.12.4 Function 3 - Set Baud Rates 

The DCTM-EM has two serial ports: a console terminal port and an auxiliary serial port. Activating 
function 3 allows you to select baud rates for these ports. When the DCT11-EM is powered up, it 
automatically sets both baud rates to 9600. 

When you first activate function 3, the upper row of LEDs displays: 


C O | n 


and the lower row of LEDs displays: 




— 

T 1 


0 

9 

1 

6 0 0 
J— L_ 


This tells us that the console terminal port is currently set at 9600 baud. Note that the baud rate is 
displayed as a decimal number. 

Pressing the ADV and BAC keys steps you backward and forward among the various baud rate values 
available for the console terminal port. The available baud rates for the console terminal port are: 300, 
600, 1200, 2400, 4800, 9600, and 19200. 

You can now set the baud rate of the auxiliary serial port by pressing the EX A key. The first time you do 
this, the upper row of LEDs displays: 



and the lower row of LEDs displays: 


o 


3 6 0 0 


3-28 







This tells us that the auxiliary serial port is currently set at 9600 baud. Repetitively pressing any of the 
keys CLR, 0 through 9, ADV, or BAC causes you to alternate between two available baud rates. The two 
available baud rates for the auxiliary serial port are: the current baud rate of the console terminal port and 
one-fourth the current baud rate of the console terminal port. Pressing EXA again puts you into register 
mode. 

Fmction 3 - Example 

You want to use function 3 to experiment with setting baud rates for the console terminal serial port and 
(he auxiliary serial port. You have not altered these baud rates since powering up. 


UPPER 

KEY DISPLAY 


LOWER 

DISPLAY COMMENTS 




Get into function mode. 


Select function 3. 


Baud rate for console 
terminal porl = 9600 





Band rate for auxiliary 
port = terminal port. 


300 = one fourth of 1 200- 


Back to 1 200. 


Back to 300 
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Now in register mode. 
Console port = 1 200 
Auxiliary port — 300. 





























3.12.5 Function 4 - Release Protection 

There is an area of RAM that the DCT11-EM normally prevents you from directly altering from the 
keypad. This area is called the keypad monitor scratchpad and occupies the memory space from addresses 
7400 to 7777. Refer to Paragraphs 5.2 and 5.4.1 for more information about the keypad monitor and this 
protected area. 

Additionally, if you have a console terminal connected to your DCT1 1-EM, there are two other areas of 
RAM that are protected. These areas are the console monitor scratchpad and the symbol table. They 
occupy the memory space from addresses 6500 to 7377. Again, more information is provided in Chapter 
5. Activating function 4 releases the protection associated with these memory spaces. Note that “protec- 
tion” refers to protection from direct alteration via the keypad or console terminal. Programs that you 
write can and will alter these locations. Therefore, when you write your programs make sure these spaces 
are not inadvertantly violated. 

Protection is restored when you press the HALT switch, when a HALT instruction is encountered, or 
whenever you restart the DCT1 1 -EM. 

When you activate function 4, the upper row of LEDs displays: 


p c 


and the lower row of LEDs displays the current value of the PC. 

Function 4 - Example 

You want to alter location 7400, a normally protected location. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


FNC 



EXA 




Current PC shown on 
lower LEDs' 


Get »nto function mode. 


Select function 4. 


Protection off. 


Alter the location. 


ADR 





Most recently exam- 
ined address shown 
on lower LEDs. 


0 O 


7 4 


Alter 7400 
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Restore protection by pressing the HALT switch. 

Protection restored. 


Sow try to alter location 7400. 






When you try to clear 7400 
you get a flashing error 
message. 


Now in register mode. 


See Appendix C for more information on error messages. 
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3.13 KEYPAD COMMAND SUMMARY 


OPERATION 


ALTER MEMORY 


ALTER REGISTER 


CANCEL BREAKPOINTS 


EXAMINE MEMORY 


EXAMINE REGISTER 


EXECUTE PROGRAM 


GO WITH LEDs 


RELEASE PROTECTION 


SET BAUD RATES 


SET BREAKPOINT 


SET WATCHPOINT 


SINGLE STEP 


START CONSOLE 


PRESS ENTER 


PRESS 


ADR 


LOCATION ADDRESS 


EXA 


REG REGISTER NUMBER EXA 


FNC 


□ 


EXA 


ADR 


LOCATION ADDRESS 


EXA 


REG REGISTER NUMBER 


GO 


FNC 

I 


□ 


EXA 


FNC 


4 


EXA 


FNC 


□ 


EXA 


BPT 


BREAKPOINT ADDRESS 


BPT 


BAC 


SST 


FNC 


□ 


EXA 


ENTER REFERENCE 


NEW CONTENTS 3.6 


NEW CONTENTS 3.4 


3.12.1 


3.5 


3.3 


3.7 


3.12.2 


3.12.5 


3.12.4 


3.8.2 


WATCHPOINT 

ADDRESS 


3.8.1 


3.12.3 
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CHAPTER 4 
CONSOLE OPERATION 


4.1 INTRODUCTION 

This chapter explains how to operate the DCT1 1-EM using a console terminal. Using a console terminal 
simplifies program development because it gives you access to the DCTll-EM’s symbolic assem- 
bler/disassembler. In addition, a console terminal allows you to perform several functions not accessible 
with the keypad, such as the ability to load programs from a host computer. 

When you complete this chapter, you will be able to use a console terminal to: 

• Examine and alter the contents of registers in the DCT1 1-AA register file 

• Examine and alter the contents of memory locations 

• Enter and execute programs 

• Debug your programs through the use of single steps, breakpoints, and watchpoints 

• Load programs from a host computer 

• Perform a variety of other console functions. 

You can connect an RS232-C compatible console terminal to your DCT11-EM as shown in Figure 4-1. 


STANDARD 25-PIN CONNECTOR AND CABLE 



Figure 4-1 Connecting a Console Terminal to the DCT1 1 -EM 


No other wiring or jumpering is required. Use the DCT1 1-EM keypad to set the correct baud rate by 
activating function 3 (see Paragraph 3.12.4). Also, make sure your console terminal is set up to transmit 
and receive characters in the following format: asynchronous, ASCII, 8 bits (eighth bit is always space), no 
parity, one stop bit. 
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Then activate function 2 as described in Paragraph 3.12.3. The terminal displays: 

TEM CONSOLE MONITOR V1.0 

TEM> 

and the console monitor is ready to accept your input. 

The following default conditions arc set when the console monitor is started: 

1. The stack pointer is set to 6500 

2. The PASS2, NOHOST, 1NSTRU, SYMBOL, and VTOFF operating modes are set. 

More information about the stack pointer is given in Paragraph 5.2.1 . The operating modes are described 
in detaii elsewhere in this chapter and are summarized in Paragraph 4.18, 

4.2 TRANSFERRING CONTROL BETWEEN THE CONSOLE TERMINAL AND THE KEYPAD 

Either the console or the keypad can control the DCT1 1 -EM, but not both at the same time. 

From the keypad, your primary means of transferring control to the console is by activating function 2 
(see Paragraph 3.12.3). You can regain keypad control by pressing the HALT switch. When you press the 
HALT switch, DCTl 1-EM operation is stopped and the LEDs display the current PC. 

From the console, you can transfer control back to the keypad by typing in the EXIT command or by 
executing a HALT instruction. 

4.3 GENERAL RULES FOR CONSOLE INPUT 

Information you input via the console terminal is typically in the form of commands, instructions, or data. 
In general, your input should conform with the following guidelines. 

1. Your input line must not exceed 96 characters in length. If you exceed this limit, the console 
terminal does not accept further input until you type in a CTRL/C or CTRL/Y. Then, you 
must reinput the line. 

2. Any number of commands and instructions can be strung together on a line as long as the line 
docs not exceed 96 characters. 

3. Commands or instructions strung together on a line should be separated with a space or a 
comma. Extra separation characters (space, tab, line feed, form feed) between commands or 
instructions on a line are ignored. 

4. If a command or an instruction in a one-line string causes an error, the commands or instruc- 
tions following it are ignored. 

5. Extra separation characters (space, tab, line feed, form feed) inserted between parts of a 
command or instruction are ignored. 

6. Information preceded by a semicolon on a line is interpreted as a comment and is ignored by the 
DCTl 1-EM. 
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7. Pressing the DELETE key deletes characters on a line. As characters are deleted, they are 
echoed (preceded by a slash character) on the console terminal if you are in VTOFF mode. The 
console monitor defaults to VTOFF mode when it is started or restarted. Type in the VTON 
command if you are using a video terminal as a console device. VTON mode eliminates the 
echoing of deleted characters. Typing in VTOFF returns you to VTOFF mode from VTON 
mode. 

8. A line is terminated by pressing the RETURN key. Characters on a line are ignored until you 
press RETURN. In all the examples in this chapter, a RETURN is used to end your input line 
unless otherwise noted. 

A summary of the various forms of acceptable console input is given in Paragraph 4.18. Information about 
specific commands and instruction formats is given elsewhere in this chapter. 

4.4 CONSOLE CONTROL COMMANDS 

The DCT11-EM recognizes several control commands that allow you to easily perform a variety of 
operations from the console terminal. These commands and their typical uses are listed in Table 4-1. 


Table 4-1 Control Command Summary 


Command 

Meaning 

Typical Use 

CTRL/U 

CTRL/X 

Delete line. 

You made several typing errors in your input line. You want to cancel 
the line and try again. 

CTRL/R 

Display line. 

You used the DF.I.F.TF. key several times while typing your input line. 
You want to see a clean version of the line you are editing. 

CTRI-/S 

Suspend execution. 

You want to suspend the operation of the console monitor or the 
execution of a currently running program. 

CTRL/O 

Resume execution. 

You have previously used the CTRL/S command and want to resume 
operation. 

CTRL/C 

CTRL/Y 

Abort operation. 

You want to abort the current operation of the DCT1 1-tM and input 
a new line. 

CTRL/O 

Ignore host message. 

You arc in HOST mode (see Paragraph 4.17.1) and want to ignore 
information currently being sent by your host computer. 

CTRL/A 

Select option. 

You arc in TALK or LOAD modes (see Paragraphs 4. 1 7.3 and 4. 17.4) 
and want to select one of these four options: exit, resume, send break, 
send CTRL/A. 


45 EXPRESSIONS 

Several commands and instructions accept expressions as parameters. This paragraph familiarizes you with 
expressions and provides the rules for their definition. 

If you wish to ignore the use of expressions for the moment, you can advance to the paragraph that 
describes the command or function you are interested in. You can return to this paragraph when you need 
more detail on how to define an expression for a particular command or instruction. 
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An expression is simply a user-definable combination of one or more components called terms that 
represents a 16-bit number. There are three types of terms allowable in a DCT1 1 -EM expression: 

• Numeric 

• Literal 

• Symbolic 

Numeric terms are either octal or decimal numbers. Octal numbers can be any sequence of the digits 0 
through 7. Decimal numbers can be any sequence of the digits 0 through 9 followed by a decimal point (.). 
Do not attempt to define decimal fractions. 

Examples of Numeric Terms 

100702 

377 

39874. 

A literal term is an ASCII character you use as data. Precede an ASCII character with an apostrophe (’) to 
form a literal term. 

Examples of Literal Terms 


’E 

i* 

’4 


Symbolic terms are values symbolized by names which are defined according to the rules in Paragraph 
4.13. 

Examples of Symbolic Terms 
R1 

PSPORC 

SUM 

Terms are joined together in an expression by binary operators. (The word binary in this case means that 
at least two terms are involved.) The DCT1 1-EM allows six types of binary operators: 

+ (addition) 

- (subtraction) 

* (multiplication) 

/ (division) 

& (logical AND) 

! (logical OR) 

The unary (one term) operators, + (plus sign) and — (minus sign), can only be used at the beginning of an 
expression (or parenthesized term). Multiple unary operators are not valid. 

Expressions are evaluated from left to right with no operator hierarchy rules. Two types of brackets can be 
used to nest expressions up to seven levels deep. Use angle brackets (< >) as you would arithmetic 
parentheses and use square brackets ([]) if you want the DCT1 1-EM to substitute the enclosed information 
with the contents of the memory word it addresses. Note that if the information in square brackets 
represents an odd address, it is first rounded down. 
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A quick way lo evaluate the octal value of an expression is to type in the expression followed by a question 
mark. This command has the form: 


expression? 

Expressions - Examples 

The following are examples of valid DCT11-EM expressions. You can verify the octal values of these 
expressions by using the question mark command. 


Expression 


Octal Value 


65209 177271 

7077+1 89.+’E 007501 

— 2*<300/25>+70 000046 

1 20.*<— 8.> 176100 

177777&25+3 000030 


4.6 EXAMINING REGISTERS 

There are two ways to examine registers. One way is to type in the appropriate register symbol followed by 
a question mark. This command has the general format: 

register symbol? 

where the register symbol (R0, Rl, etc.) is as defined in Paragraph 4.13.1. 

Another way to examine registers is to type in the SHOWRE command. The SHOWRE command 
displays the values of all the registers and the PS in ascending order. If a watchpoint has been set, it is also 
displayed. Paragraph 4.14.1, which describes program debugging, gives you an illustration of the 
SHOWRE command. 


4.7 ALTERING REGISTERS 

Registers are altered by using an equal sign to set the register to the desired value. The general format for 
this is: 

register symbol=expression 

where the register symbol (R0, Rl, etc.) is as defined in Paragraph 4.13.1 and the register is set to the 
value of the expression. (See Paragraph 4.5 for expression formats and conventions.) 

Altering Registers - Example 

Alter and examine the values of R0 and the SP. 

TEM> R0=65. 

TEM> SP=6500 
TEM> R0? SP? 

000101 

006500 

TEM> 

4.8 EXAMINING AND ALTERING MEMORY LOCATIONS -INTRODUCTORY CONCEPTS 

There are several ways to examine and alter memory locations. Before discussing the specific techniques, 
there are some introductory concepts you should be familiar with. 
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4.8.1 The Address Pointer 

The address pointer specifies your current open location, i.e., the address of the location currently 
available to you for alteration, it is important to keep track of the address pointer because it determines 
where in memory you deposit information. As you will discover later, most commands which alter and 
examine memory locations are closely linked to the value of the address pointer. This paragraph gives an 
overview of how the address pointer can be affected. 

Since the DCTl 1-EM recognizes a period (.) as the symbol for the address pointer, you can manipulate the 
value of the address pointer just as you would any other symbol (see Paragraph 4.13.2). For example, to 
set the value of the address pointer use an equal sign: 

.=expression 

where the value of the address pointer is determined by the expression (see Paragraph 4.5). To determine 
the current value of the address pointer, use a question mark: 


Another way to set the address pointer is to use the backslash (\) character. The general format for a 
backslash command is: 

expression\ 

where the value of the address pointer is determined by the expression. This command also displays the 
memory location specified by the expression (see Paragraph 4.9). 

There are two other commands which affect the address pointer. These commands are the caret ( A ) 
command and the RETURN (or null line input) command. The effects of these commands depend upon 
which output format mode the DCTl 1-EM is in (see Paragraph 4.8.2). A description of their effects is 
given in Paragraphs 4.9 and 4.10. 

When you type in a program, the DCTl 1-EM automatically increments the address pointer for each 
instruction or data object you input. Note that whenever you power up, the address pointer is initialized to 
zero. 

Do not confuse the address pointer with the PC (program counter). They are unrelated. As you type in a 
program, the address pointer is incremented, but the PC is unaffected. And the execution of a program 
will affect the PC but not necessarily the address pointer. 

4.8.2 Output Formatting Modes 

When you examine memory locations, the values the DCTl l -EM displays on the console depend upon 
your current output formatting mode. There are five output formatting modes: INSTRU, WORD, BYTE, 
SYMBOL, and ABSOLU. 

The INSTRU (or instruction disassembly) mode causes memory locations to be displayed as disassembled 
DCTl 1-AA instructions. INSTRU is one of the modes that the DCTl 1-EM is initalized to when you 
power up. 
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The WORD and BYTE modes cause memory locations to be displayed octally. Set the WORD mode (by 
typing in the WORD command) if you want the values of memory locations to be displayed as 16-bit 
words. Set the BYTE mode (by typing in the BYTE command) if you want the values of memory 
locations to be displayed as individual bytes. If you are in WORD or BYTE mode, type in the INSTRU 
command to return to instruction disassembly mode. Notice that the INSTRU, WORD, and BYTE 
commands are mutually exclusive. To summarize: 

Mode Memory Locations Are Displayed As 

INSTRU Disassembled DCT11-AA instructions 

BYTE 8-bit octal bytes 

WORD 16-bit octal words 

Odd addresses (i.e., upper bytes) can only be examined in BYTE mode. If you try to examine an odd 
address in INSTRU or WORD mode, an error message results. 

The SYMBOL and ABSOLU modes determine how the symbols you have defined in your program are to 
be displayed. You will usually use SYMBOL and ABSOLU in conjunction with instruction disassembly 
(INSTRU) mode. 

If your program contains user-defined symbols (see Paragraph 4.13), these symbols will be displayed only 
if you are in SYMBOL mode. SYMBOL is one of the modes the DCT1 1-EM is initialized to when you 
power up. 

If you want user-defined symbols to be displayed as octal values, type in the ABSOLU command to set the 
ABSOLU mode. Typing in SYMBOL restores the SYMBOL mode. Note that SYMBOL and ABSOLU 
are mutually exclusive. To summarize: 

Mode User-Defined Symbols Are Displayed As 

SYMBOL Symbols 

ABSOLU Octal values 

4.9 EXAMINING MEMORY LOCATIONS 

This paragraph summarizes the commands with which you can examine memory locations. The examples 
in this paragraph are intended to give you a general idea of what to expect when you use these commands 
in different output formatting modes. 

One way to examine a memory location is to type in the desired memory location followed by a backslash. 
The general format for this command is: 

exprcssion\ 

where the memory location you examine is determined by the value of the expression (see Paragraph 4.5). 
The backslash command also sets the address pointer, so a location examined with a backslash becomes 
the current open iocation. 
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Examining Memory Locations - Example 1 

Use the backslash command to examine a memory location. Try this in different output formatting modes. 
You have not altered any memory locations from their initial (power-up) values. 

TEM> WORD 
TEM> 2000\ 

002000 : 000000 
TEM> !00\ 

000100: 135676 
TEM> BYTE 
TEM> 100\ 

000100: 276 
TEM> INSTRU 
TEM> 140000\ 

140000: JMP 155334 
140004: 

TEM> 

Examining Memory Locations - Example 2 

You use the backslash command to try to examine location 1001 without first typing in the BYTE 
command. This causes an error message to be generated. 

TEM> INSTRU 
TEM> 1001\ 

001001 : 

\\\ 

ODD ADDRESS 
TEM> 

Another way to examine memory locations is to simply press the RETURN key. When you press the 
RETURN key as a command input, the result depends on both your output formatting mode and the 
value of the address pointer. If you are in INSTRU mode, RETURN displays the next eight instructions 
relative to the address pointer. In WORD mode, the contents of the next eight words relative to the 
address pointer are displayed. In BYTE mode, the contents of the next eight bytes relative to the address 
pointer are displayed. Note that the RETURN command is ignored when you are loading a program from 
a host computer (see Paragraph 4. 1 7). 
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Examining Memory Locations - Example 3 

You want to examine memory locations by pressing the RETURN key. You have not altered these 
locations since you have powered up. Start with location 1000. 

TEM> INSTRU 
TEM> 1000\ 

001000: HALT 
001002 : 

TEM> 

001000: HALT 
001002: HALT 
001004: HALT 
001006: HALT 
001010: HALT 
001012: HALT 
001014: HALT 
001016: HALT 
001020 : 

TEM> WORD 
TEM> 


001000: 000000 
TEM> 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

001020: 000000 
TEM> BYTE 
TEM> 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

001020: 000 
TEM> 

000 

000 

000 

000 

000 

000 

000 

001030: 000 

000 

000 

000 

000 

000 

000 

000 


TEM> 

A one-line string of bytes or words is numbered from left to right. 

Note that consecutive RETURN keypresses increment the address pointer but nonconsecutive ones do 
not. For example, in WORD mode you incremented the address pointer from 1000 to 1020 by pressing 
RETURN twice in a row. In BYTE mode you incremented the address pointer from 1020 to 1030 by 
pressing RETURN twice in a row. Pressing RETURN only once (as you did in INSTRU mode) had no 
effect on the address pointer. 

A way to examine a range of memory locations is to use the underscore ( ) character. The general format 

for this command is: 

expression 1 expression2 

• here the beginning of the range is determined by the value of expression 1 and the end of the range is 
determined by the value of expression2. See Paragraph 4.5 for expression formats. 

Expression 1 should be less than expression2. If it is not, only one location is displayed: the beginning of 
range location. 

The use of the underscore command has no effect on the address pointer. 
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Examining Memory Locations - Example 4 

You want to examine groups of memory locations by using the underscore command. Try this command 
in INSTRU, WORD, and BYTE modes. These memory locations have not been altered since you have 
powered up. 

TEM> INSTRU 
TEM> 2000\ 

002000: HALT 
002002 : 

TEM> 1004—1012 
001004: HALT 
001006: HALT 
001010: HALT 
001012: HALT 
001014: 

TEM> WORD 
TEM> 1002—1006 


001002: 000000 
TEM> BYTE 

TEM> 1005—1020 

000000 

000000 






001005: 000 

000 

000 

000 

000 

000 

000 

000 

001015: 000 

000 

000 

000 






TEM> INSTRU 
TEM> 


002000: HALT 
002002: HALT 
002004: HALT 
002006: HALT 
002010: HALT 
002012: HALT 
002014: HALT 
002016: HALT 
002020 : 

TEM> 

Notice that the address pointer value of 2000 which was set at the beginning of the example is still 2000 at 
the end of the example. 

4.10 ALTERING MEMORY LOCATIONS 

You can deposit data into a memory location by setting the address pointer to the address of the location 
you wish to alter and typing in the information. The address pointer is automatically incremented as you 
deposit instructions and data to consecutive memory locations (as when you type in a program, for 
example). 

If you make an error during data entry, you can use the caret ( A ) command to decrement the address 
pointer and retype the input line. In INSTRU and WORD modes, the address pointer is decremented by 
one word for each caret command, and in BYTE mode it is decremented by one byte for each caret 
command. 
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Altering Memory Locations - Example 1 

You type in a short program starting at address 1000. You make an error while typing in the program and 
use the caret ( A ) command to help you correct the error. You then examine the program. The program 
adds Rl to R2 and places the result in R3. The final line restarts the console monitor so that you will get a 
TEM> prompt after you execute the program. 


TEM> INSTRU 
TEM> .=1000 
TEM> MOV Rl ,R3 
TEM> ADD R2,R4 
TEM> a 

TEM> ADD R2,R3 
TEM> JMP @#140010 
TEM> 1000\ 

001000: MOV R1,R3 

001002 : 

TEM> 

001000: MOV R1,R3 

001002: ADD R2,R3 

001004: JMP @#140010 

001010: HALT 
001012: HALT 
001014: HALT 
001016: HALT 
001020: 

001022: 

TEM> 

Altering Memory Locations - Example 2 

You type in some data starting at location 2000. You type several values on a line, remembering to include 
separation characters (in this case, spaces) between them. You then examine the data you have typed in. 

Comments 

TEM> =2000 

TEM> 1 2 3 4 ;type in four data values 

TEM> .? ;the address pointer is incremented 

002010 

TEM> .=2000 reinitialize the address pointer 

TEM> WORD 

TEM> +10 ;examine the data 

002000: 000001 000002 000003 000004 000000 

TEM> 

4.11 INSTRUCTION FORMAT 

This paragraph provides some guidelines for formatting instructions for input to the DCT11-EM. A 
complete description of the instruction set is found in the DCT11-AA User’s Guide (EK.-DCT1 1-UG). 

An acceptable instruction consists of the instruction mnemonic followed by the appropriate string of 
operands (if any). A separation character (space, tab, feed) must be used to separate a mnemonic from its 
first operand (if any). A comma must appear between two operands in a two-operand instruction. 

Expressions can be used as operands, if desired. Refer to Paragraph 4.5 for expression formats. 


Comments 


;you really wanted to type ADD R2,R3 
;decrement address pointer by one word 
;type in correct line 
continue typing in program 
;now examine your program 
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If you wish, you may enter your instructions in octal format, rather than in assembly language format. 
Refer to Chapter 6 of the DCT11-AA User’s Guide for information on constructing octal equivalents of 
instructions. 


4.12 TYPING IN A PROGRAM 

Set the address pointer to 2000 and type in the summation program from Paragraph 3.8 as shown below. 


TEM> -2000 
TEM> CLR R1 
TEM> CMP R0,R1 
TEM> BLE 2034 
TEM> CLR @#2044 
TEM> MOV R0,@#2044 
TEM> DEC R0 
TEM> ADD R0,@#2044 
TEM> BVS 2036 
TEM> CMP R0,R1 
TEM> BGT 2016 
TEM> HALT 
TEM> CLR R0 
TEM> CLR @#2044 
TEM> HALT 
TEM> 


Now verify you have typed in the program correctly by setting the address pointer to 2000 and repeatedly 
pressing the RETURN key. If you are in INSTRU mode, the following will be displayed. 


TEM> =2000 

TEM> 


002000: CLR 

R1 

002002: CMP 

R0,RI 

002004: BLE 

002034 

002006: CLR 

@#002044 

002012: MOV 

R0, @#002044 

002016: DEC 

R0 

002020: ADD 

R0, @#002044 

002024: BVS 

002026: 

TEM> 

002036 

002026: CMP 

R0,R1 

002030: BGT 

002032: HALT 

002016 

002034: CLR 

R0 

002036: CLR 

002042: HALT 
002044: HALT 
002046: HALT 
002050: 

TEM> 

@#002044 


The address pointer is automatically incremented each time you type in an instruction. 
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^ c*i may want to use symbolic names to represent values such as 2044 (the location of the accumulated 
«ml to increase the readability of the program. The next few paragraphs tell you how to define and 
•manipulate symbols. 

If you want to execute the program and learn how to use the DCT1 1-EM’s console debugging facilities, 
advance to Paragraph 4.14. 

4.13 USING SYMBOLS 

The DCTll-EM allows you to define symbols in your programs. This paragraph describes the formats 
required for DCT1 1-EM symbols and explains the use of the commands which allow you to define and 
manipulate symbols. 

4 . 13.1 Symbol Names 

The following characters may be used in symbol names. 

A through Z 
0 through 9 
. (Period) 

$ (Dollar sign) 

A symbol name must not begin with 0 through 9, however. 

A symbol name may have any length; however, only the first six characters are stored by the DCT1 1-EM. 
Thus, to avoid ambiguities, make the first six characters of your symbol names unique. 

The following predefined symbol names are reserved. 


R0 

Register 0 

RI 

Register 1 

R2 

Register 2 

R3 

Register 3 

R4 

Register 4 

R5 

Register 5 

SP 

Stack pointer (register 6) 

PC 

Program counter (register 7) 

PS 

Processor status word 

WP 

Watchpoint address 


Address pointer 

B1 

Breakpoint 1 

B2 

Breakpoint 2 

B3 

Breakpoint 3 

B4 

Breakpoint 4 


These predefined symbols must not be used as user-defined symbol names, although they can be used as 
arguments in expressions, instructions, or commands. 

DCT1 1-EM directives, commands, and DCT1 1-AA instruction mnemonics (e.g., MOV, ADD, JMP) are 
also reserved and must not be used as symbol names. 
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4.13.2 Commands That Define And Manipulate Symbols 

There are two ways you can define a symbol. One way is to use the equal sign (=) to equate a symbol to a 
specific value. The general format of this is: 

symbol=expression 

where the value of the symbol is determined by the expression. 

The other way of defining a symbol is to use a colon (:). The colon defines a symbol as the label of the 
current address. The general format of this is: 

symbol: 

where the value of the symbol is defined as the value of the address pointer. 

Once you have defined a symbol, you cannot redefine it unless you first delete it. Symbol deletion is 
accomplished with the DELETE command. This command has the general format: 

DELETE symbol 

where the name of the symbol you wish to delete follows the command. The DELETE command causes 
the DCT1 1-EM to display the symbol and its value as it performs the deletion. 

Predefined symbols (see Paragraph 4.13.1) cannot be deleted with the DELETE command. Predefined 
symbols can be redefined, however, by using the equal sign. 

When you define a symbol, it is stored in an area called the user symbol table. There is sufficient space in 
the user symbol table to store up to 66 symbols. If you try to define more than 66 symbols, you will cause 
an error message to be generated. 

If you want to display your user symbol table, type in the SHOWSY command. The symbols are displayed 
in the order in which you defined them, starting with the most recently defined symbol. 

If you want to delete your entire symbol table, type in the CLEAR command. The CLEAR command is 
typically used at the beginning of a long program or a program you are loading in from a host computer 
(see Paragraph 4.17). CLEAR gives the program plenty of room in the symbol table for symbols and 
avoids conflicts between symbol names in the program and any symbol names you may have previously 
defined. 

If you want to display the value of an individual symbol, type in the symbol followed by a question mark 
(?). The general format for this is: 

symbol? 
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Defining and Manipulating Symbols - Example 1 

You set the address pointer to 1000 and define the symbols FIRST, SECOND, and THIRD. You 
experiment with displaying and deleting these symbols. 


TEM> CLEAR 
TEM> .= 1000 
TEM> FIRST: 

TEM> SECOND=FIRST+ 1 00 

TEM> THIRD=SECOND+300 

TEM> SHOWSY 

THIRD = 001400 

SECOND= 001100 

FIRST = 001000 

TEM> DELETE FIRST 

FIRST = 001000 

TEM> SHOWSY 

THIRD = 001400 

SECOND= 001100 

TEM> CLEAR 

TEM> SHOWSY 

TEM> 


SECOND is set equal to 1100 because FIRST equals 1000 at the time of definition. If you delete FIRST 
after you delete SECOND SECOND will be unaffected. 

4.14 EXECUTING AND DEBUGGING PROGRAMS 

Refer to the summation program you typed in (Paragraph 4.12). You will make some minor changes to 
this program and use the DCT1 l-EM’s debugging facilities to observe its operation. 

First, replace memory location numbers with symbolic names (see Paragraph 4.13). 

TEM> 1LLIN=2034 
TEM> SUM-2044 
TEM> OVFLO=2036 
TEM> LOOP-2016 
TEM> 


Instead of having the program HALT when it completes execution (which returns control to the keypad), 
vou want it to restart the console monitor and give you a TEM> prompt. You do this by placing a JMP 
e* 140010 instruction at location 2032 which restarts the console monitor when executed. 


TEM> =2032 
TEM> JMP @#140010 
TEM> 


Now set your initial conditions as follows. 


TEM> R0=100 
TEM> PC=2000 
TEM> SP=6500 
TEM> 
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Then execute the program by typing in the GO command. 

TEM> GO 
TEM> 

To check the result, examine SUM. 

TEM> SUM\ 

SUM : 004040 
TEM> 

This is the correct sum in octal of the numbers from 0 to 100 (octal). 

4.I4.I Using The Watchpoint 

The DCT1 1-EM recognizes WP as the symbol for the watchpoint. Set the watchpoint address by using the 
equal sign command. The general format for this is: 


WP=expression 

where the watchpoint address is determined by the value of the expression. 

For example, to monitor the accumulated sum in your program, set your watchpoint at the location SUM. 

TEM>WP=SLM 

TEM> 


Now reset your initial conditions (set R0=100) and execute the program. After you receive the TEM> 
prompt, use the SHOWRE command to examine your registers. 


TEM> SHOWRE 

R0 

= 000000 

R 1 

= 000000 

R2 

= 000000 

R3 

= 000000 

R4 

= 000000 

R5 

= 000000 

SP 

= 006500 

PC 

= 002000 

PS 

= 000004 

SUM 

: 004040 

TEM> 



Notice your watchpoint appears as well. Another way to examine the watchpoint is to use the question 
mark command. WP? displays numerically the watchpoint address. [WP]? displays numerically the 
watchpoint contents. 

TEM> WP? 

002044 
TEM> [WP]? 

004040 

TEM> 

The watchpoint can be cleared by setting it to zero or by typing in the CANCEL command, which not 
only clears the watchpoint but the breakpoints as well. 
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4.14.2 Using the Single-Step Function 

Single stepping is accomplished by typing in the STEP command. STEP executes the instruction at the 
current PC and displays: (1) the new values of your registers and watchpoint, and (2) the next instruction 
to be executed. 


To experiment with the STEP command, reset the initial conditions for your program (set R0=100) and 
type in STEP. You can then continue single stepping by repeatedly pressing the RETURN key. 

TEM> STEP 
RO = 000100 

R 1 = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 

SP = 006500 

PC = 002002 

PS = 000024 

SUM : 004040 
002002: CMP R0.R1 
002004 : 

T£M> 

R0 = 000100 

R l = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 

SP = 006500 

PC = 002004 

PS = 000020 

SUM : 004040 
002004 : BEE ILLIN 
002006 : 

TEM> 

R0 = 000100 

Rl = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 

SP = 006500 

PC = 002006 

PS = 000020 

SUM : 004040 
002006 : CLR <®#SUM 
002012 : 

TEM> 

R0 = 000100 

Rl = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 
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SP = 006500 

PC = 002012 

PS = 000024 

SUM : 000000 

002012 : MOV R0,@#SUM 

LOOP : 

TEM> 

R0 = 000100 

R 1 = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 

SP = 006500 

PC = LOOP 

PS = 000020 

SUM : 000 1 00 

LOOP : DEC R0 

002020 : 

TEM> 

R0 = 000077 

R1 = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 

SP = 006500 

PC = 002020 

PS = 000020 

SUM : 000100 

002020 : ADD R0,@#SUM 

002024 : 

TEM> 

R0 = 000077 

Rl = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 

SP = 006500 

PC = 002024 

PS = 000020 

SUM : 000177 

002024 : BVS OVFLO 

002026 : 

TEM> 


The program is functioning properly; R0 is getting decremented and added to SUM. 
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4.14.3 Using Breakpoints 

The use of breakpoints with a console terminal is similar to the use of breakpoints with the keypad (see 
Paragraph 3.8.2). 

The DCT1 1-EM recognizes Bl, B2, B3, and B4 as the symbols for the four breakpoints. Set a breakpoint 
by using the equal sign command. The general format for this is: 

breakpoint symbol=expression 

•here the breakpoint is determined by the value of the expression. 

For example, to set breakpoints at locations 2020 and 2024 in the summation program (as you did with the 
keypad), type in: 

TEM> B 1=2020 
TEM> B2=2024 
TEM> 

Now reset your initial conditions (set R0=100, PC=2000) and execute the program. 

TEM> GO 

BREAK POINT ENCOUNTERED 
002020: ADD R0,@#SUM 
002024: 

TEM> 

You get a message which indicates that your first breakpoint (Bl) was encountered by the console monitor. 
To determine the current state of your program, type in the SHOWRE command. 

TEM> SHOWRE 
R0 = 000077 
R1 = 000000 
R2 - 000000 
R3 = 000000 
R4 = 000000 
R5 = 000000 
SP = 006500 
PC = 002020 
PS = 000000 
SUM : 000100 
TEM> 


4-19 



You see that RO has been correctly decremented. When you type in GO again: 
TEM> GO 

BREAK POINT ENCOUNTERED 

002024; BVS OVFLO 

002026: 

TEM> 


the console message appears (this time because of B2), and you again examine the state of your program. 


TEM> SHOWRE 
R0 = 000077 
R1 = 000000 
R2 = 000000 
R3 = 000000 
R4 = 000000 
R5 = 000000 
SP = 006500 
PC = 002024 
PS = 000000 
SUM : 000177 
TEM> 


You see that the first addition was performed correctly. You can continue to observe the operation of the 
program by typing in the GO and SHOWRE sequence as just shown. 

To examine a breakpoint, type in Bl?, B27, B3?, or B47. Breakpoints can be cleared by setting them to 
zero or by typing in the CANCEL command, which not only clears the breakpoints but the watchpoint as 
well. 

4.15 DCT11-EM DIRECTIVES 

As a convenience for users who are familiar with assemblers (and in particular the PDP-t 1 MACRO-1 1 
assembler), the DCT1 1-EM recognizes several directives which are simitar to those used in the MACRO- 
1 1 language. These directives are listed in Table 4-2 with a brief explanation of their operation. For 
detailed information about how to use these directives in your programs, refer to the PDP-11 MACRO-1 1 
Language Reference Manual (AA-5075A-TC). 
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Table 4-2 DCTI1-EM Directives 


Directive Form 

Operation 

\SCU /string/ 

Generates a block of data containing the ASCII equivalent of the character string 
(enclosed in delimiting characters), one character per byte. The delimiting characters can 
be slashes or any other visible character. The ASCII code for each character is stored in 
successive bytes of memory starting at the location indicated by the current address 
pointer. The address pointer is advanced by the length (in characters) of the enclosed 
string. 

BLKB expr 

Reserves a block of storage space whose length in bytes is determined by the specified 
expression. The currenl address pointer is advanced by the value of the expression. 

ftl_KW expr 

Reserves a block of storage space whose length in words is determined by the specified 
expression. The currenl address pointer is advanced by two times the value of the 
expression. 

8^TE expr], expr 2, • ■ • 

Generates successive bytes of data: each byte contains the value of the corresponding 
specified expression. The lower eight bits of each expression are stored in successive bytes 
of memory, starting at the location indicated by the currenl address pointer. The address 
pointer is advanced by the number of expressions given. The last expression must not be 
followed by a comma. 

£>E\ 

Ensures that the current address pointer contains an even address by adding l if it is odd. 

• ORDexprl. cxpr2, • • • 

Generates successive words of data; each word contains the value of the corresponding 
specified expression. The value of each expression is stored in successive words of memory 
starting at the location indicated by the current address pointer. The address pointer is 
advanced by two times the number of expressions given. The last expression must not be 
followed by a comma. 


4.16 MISCELLANEOUS CONSOLE FUNCTIONS 

The DCT1 1 -EM has a HELP facility which displays all the commands available to you. To invoke this 
facility, type in HELP. 

You can display the current operating modes of the DCT1 1-EM by typing in the SHOWMO command. 
When you first power up, typing in the SHOWMO command displays the default operating modes: 

PASS2 NOHOST INSTRU SYMBOL VTOFF 

The operating modes that can be displayed are: PASSl, PASS2, HOST, NOHOST, INSTRU, WORD, 
IYTE, SYMBOL, ABSOLU, VTON, and VTOFF. See the command summary in Paragraph 4.18 for 
fcnef descriptions of these modes. The command summary also contains references to paragraphs that 
explain the modes in detail. 

The DCT1 1-EM has a REPEAT function which allows you to repeatedly input a line of commands or 
■Biructions. The form of this command is: 

REPEAT expression, input line 
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where the input line is executed the number of times specified by the value of the expression. One 
application of the REPEAT command is to fill memory. For example, the REPEAT 1000, NOP com- 
mand will fill 1000 (octal) locations with NOP instructions. The REPEAT command also lets you single 
step without having to press the RETURN key repeatedly (see Paragraph 4.14.2). The REPEAT 7, STEP 
command, for example, single steps through your program seven times. 

Repeat Command - Example 

A third application of the REPEAT command is to move blocks of memory. You must specify the 
beginning and ending addresses of the range to be moved (the source range) and the beginning address of 
the destination range. The general format for a command sequence which moves a block of memory is: 

TEM> .—destination 

TEM> REPEAT <end-start>/2+l,[.+start-destination] 

where start and end are the beginning and ending addresses (respectively) of the source range, and 
destination is the beginning address of the destination range. Both ranges must begin at even addresses, 
and only words of memory can be transferred. 

For example, if you want to move the contents of locations 1000 through 1010 to 2030 through 2040, type 
in the following. 

TEM> =2030 

TEM> REPEAT <1 010-1 000>/2+l, [.+1000-2030] 

4.17 LOADING THE DCTU-EM FROM A HOST COMPUTER 

This paragraph describes how to load information (usually a program) from a host computer into your 
DCT1 1-EM. Two broad areas are covered. First, you are familiarized with the console monitor commands 
that initiate and control the host loading process. Second, you are shown how to prepare a DCT1 1 -EM 
loadable program on your host. 

4.17.1 Configuring the DCT11-EM for Host Loading 

Since host loading is accomplished through the use of console monitor commands, you must have your 
DCT1 1-EM connected to a console terminal. 

Your host computer must have a serial communication line capable of sending data to the DCT1 1-EM in 
ASCII text format. Connect the serial line from the host to the DCT1 1-EM auxiliary serial port connector 
(J3) as shown in Figure 4-2. 


STANDARD 25-PIN CONNECTOR AND CABLE 



DCT11-EM 


wn 102S4 


Figure 4-2 Connecting a Host Computer to the DCTI 1-EM 
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No other wiring or jumpering is required. Set the baud rate of your console terminal equal to the baud rate 
of your host line. Use the DCT11-EM keypad to set the same baud rate for the console serial port by 
activating function 3 as described in Paragraph 3.12.4. Also make sure you are set up to transmit and 
receive characters in the following format: asynchronous, ASCII, 8 bits (eighth bit is always space), no 
parity, one stop bit. 

You need not set the baud rate of the auxiliary serial port. When you communicate with a host, the 
DCTtl-EM automatically sets the baud rate of the auxiliary serial port equal to the baud rate of the 
console serial port. 

Activate function 2 as described in Paragraph 3.12.3 to start the console monitor. When the console 
displays a prompt, type in; 

TEM> HOST 

The HOST command places you in HOST mode and is a prerequisite for performing any operation with a 
host computer. 

HOST mode only allows you to receive messages from the host. If you want to communicate directly with 
the host, use the TALK command in addition to HOST. If you want to load information from the host, use 
the LOAD command in addition to HOST. The TALK and LOAD commands are explained in 
Paragraphs 4.17.3 and 4.17.4. 

The NOHOST command cancels HOST mode. 

4.17.2 The HOST Command 

Typing in the HOST command has two effects: 

1. It defines the auxiliary serial port as a host communication line. 

2. It creates an input buffer to hold information received from the host. 

A HOST> prompt precedes any messages you receive from your host while in HOST mode. 

Host Mode - Example 

You are in HOST mode and you receive a message from the host before you finish typing an input line. If 
you simply continue typing the line, the console monitor restores the interrupted line and appends your 
new material to it. Messages from the host are ignored as console input. 

Comments 

TEM> HOST 
TEM> MOV R0.R1 

TEM> MOV R ;You were typing MOV R0.R2 

HOST> 

This is a message from the host... 

TEM> MOV R0.R2 ;You type 0,R2 and the previous line is restored. 

TEM> 

4.17.3 The TALK Command 

Tvping in the TALK command allows you to communicate dircctlv with the host just as if the DCT1 1- 
EM were not there. It has the same effect as connecting the serial line from the host directly to your 
console terminal. 
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Typically, you might use the TALK mode to prepare a DCTI 1-EM loadable file with your host’s editing 
facilities (sec Paragraph 4.17.5). 

The user LED is illuminated in TALK mode. 

There are two ways to cancel TALK mode. One way is to press the BREAK key on the console. The 
DCTI 1-EM responds: 

CONSOLE BREAK 
TEM> 

and you not only cancel TALK mode but HOST mode as well. The other way is to type in CTRL/A. The 
DCTI 1-EM responds: 

E (EXIT). R (RESUME), B (SEND BREAK), A A (SEND A A) ? 

If you type in the letter E, TALK mode is canceled but HOST mode is not. 

Note that typing in CTRL/A ( A A) in TALK mode gives you three other options. You can send a break or 
CTRL/A character to the host by typing in B or CTRL/A, respectively. Typing in an R or any characters 
other than E, B, or CTRL/A, causes TALK mode to be resumed. 

4.17.4 The LOAD Command 

Use the LOAD command only after you have prepared a DCTI 1-EM loadable program on your host as 
explained in Paragraph 4.17.5. 

Typing in the LOAD command allows you to communicate directly with the host just as the TALK 
command does. In LOAD mode, however, the DCTI 1-EM constantly monitors the characters received 
from the host and begins loading if it sees the .START directive. 

To initiate host loading while in LOAD mode, therefore, simply enter a command (which depends on the 
particular host you are using) that types out your program on the console terminal. For example, if you 
were using a VAX/VMS host, you would use TYPE PROG.TXT to type out the file PROG.TXT on your 
terminal. Since your DCTI 1-EM loadable program always has the .START directive as its first line, 
typing the program causes the DCTI 1-EM to start loading. 

NOTE 

During the loading process, the DCTI 1-EM accepts 
input from both serial ports simultaneously. As a 
rule, do not press keys on the console terminal dur- 
ing loading since this interferes with your host’s 
input. The only exception to this rule is the use of 
the CTRL/O command (see below). 

Once loading begins, it continues until the .END directive is received or until an error in the incoming 
program is detected. In both cases, when loading stops, you are returned to HOST mode. If loading stops 
as a result of an error in your program, the portion of the program that follows the error will be displayed 
on your console terminal as a “message” from the host. 

If loading is terminated by an error in your program, you can suppress further display of the program by 
typing in the CTRL/O command. CTRL/O causes the DCTI 1-EM to ignore messages from the host until 
you press the RETURN key. If you want to terminate output from the host, enter CTRL/O followed by 
the TALK command followed by the appropriate interrupt control sequence your host recognizes (such as 
CTRL/Y or CTRL/C). 
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Note that the user LED is illuminated in LOAD mode. Also note that pressing BREAK or typing in 
CTRL/A has the same effect in LOAD mode as in TALK mode. 

4.17.5 Preparing DCT11-EM Loadable Programs on a Host 

In general, you will find it convenient to use your host’s editing facilities to create programs. This is 
particularly true if the programs are long or require extensive alteration. In order to prepare a program the 
DCT1 1~EM will accept, keep the following in mind. 

Make sure the .START directive precedes your program. The DCT1 LEM will not be able to load your 
program unless it first sees the .START directive. 

Next, realize that when your program is loaded into the DCT1 LEM, the DCT1 LEM will behave as if 
each line of your program were being entered by you directly from the console terminal. This means that 
the rules and conventions of console monitor input apply also to each line of the program you create on 
your host. The one exception is that the null line command (i.e., pressing RETURN to examine successive 
memory locations) is disabled during host loading. 

If your program contains undefined symbols or expressions (for example, a “forward reference”), prepare 
your program as two identical segments. Precede the first segment with the PASSl command and the 
second segment with the PASS2 command. The idea behind the PASSl and PASS2 commands is as 
follows. 

Normally, the DCT1 LEM does not allow you to input undefined symbols. This mode of operation is 
called the PASS2 mode (PASS2 is one of the power-up default modes of the DCTI LEM). The use of 
undefined symbols in your programs, however, is commonly desirable. For example, consider the following 
program segment. 

CMP # 1 77700, R I 
BNE .+ 14 
INC R2 
CMP R2J200 
BLO .+4 
CLR R2 
MOV R2.R3 

In this example, you are branching to a defined location (i.e., the location that contains the MOV R2,R3 
instruction), but are doing so in a cumbersome way. You need to perform a calculation for each branching 
instruction. An easier way to write this program segment would be: 

CMP #1 77700, R1 
BNE THERE 
INC R2 
CMP R2J200 
BLO THERE 
CLR R2 

THERE: MOV R2,R3 

But if the DCTI LEM is in a mode in which it rejects undefined symbols, an error results when you try to 
input BNE THERE. 

The DCTI LEM solves this problem by having a mode of operation in which undefined symbols are 
tolerated called the PASSl mode. 
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In the PASSl mode, the DCT1 1-EM substitutes the value zero for each undefined symbol encountered in 
expressions except when the undefined symbol is the operand of a branch instruction. In that case, the 
value of the current address pointer is substituted for the value of the branch operand. If an undefined 
symbol is later defined through the use of an equal sign (=) or colon (:), the symbol is entered into the 
symbol table with its proper value. 


NOTE 

Undefined expressions involving the address pointer 
are never tolerated, not even in PASSl. For example 
if A, B, and C are undefined, the following are 
unacceptable: 

.=A 

.BLKB B 
.BLKW C 

Make sure the .END directive terminates your program. 

A DCT11-EM Loadable Program - Example 1 

Use your host's editing facilities to create the summation program presented in Paragraph 3.8. Comments 
from the original program are shown in lowercase, and comments added for the benefit of the example are 


shown in uppercase. 


START 

;THIS LINE MUST APPEAR FIRST. 

. - 2000 

;ENTER THE PROGRAM STARTING AT LOCATION 2000. 

CLR R1 

;Set R1 = 0. 

CMP R0.R1 

;R0 contains n. 

BLE 2034 

;Illegal input (n < 0)? 

CLR @#2044 

;No, start operation by clearing 2044. 

MOV R0,@#2044 

;Place first value of n in 2044. 

DEC R0 

;n = n— 1 

ADD R0,@#2044 

;Add next value (n-1) to 2044. 

BVS 2036 

;Overflow? 

CMP R0,R1 

;No. 

BGT 2016 

;Continue operation if n > 0. 

HALT 

;Operation complete if n = 0. 

CLR R0 

;Yes, illegal input. Clear R0, 2044. 

CLR @#2044 

;Yes, overflow. Clear 2044 only. 

HALT 

;I]]egal input or overflow occurred. 

.END 

;STOP HOST LOADING. 
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A DCT11-EM Loadable Program - Example 2 

In this example, the summation program above is changed slightly such that forward references to the 
symbols ILLIN and OVFLO are made. Since these symbols are undefined when first referenced, you must 
create the program in two segments to make it acceptable to the DCT1 1 -EM. 


START 

CLEAR 

PASS1 


. = 2000 
BEGIN: 


LOOP: 


ILLIN: 

OVFLO: 

PASS2 


. = 2000 
BEGIN: 


LOOP: 


ILLIN: 

OVFLO: 

END 


CLR R1 
CMP R0.R1 
BLE ILLIN 
CLR @#2044 
MOV R0,@#2044 
DEC R0 

ADD R0,@#2044 
BVS OVFLO 
CMP R0.R1 
BGT LOOP 
HALT 
CLR R0 
CLR @#2044 
HALT 


CLR R1 
CMP R0,RI 
BLE ILLIN 
CLR @#2044 
MOV R0,@#2044 
DEC R0 

ADD R0,@#2044 
BVS OVFLO 
CMP R0,R1 
BGT LOOP 
HALT 
CLR R0 
CLR @#2044 
HALT 


THIS LINE MUST APPEAR FIRST. 

DELETE ALL PREVIOUSLY DEFINED 
SYMBOLS. 

PERFORM FIRST PASS INPUT OF PROGRAM. 
ALLOW UNDEFINED SYMBOLS AND SET 
THEIR VALUES TO ZERO. 

INPUT THE PROGRAM STARTING AT 
LOCATION 2000. 

Set R1 = 0. 

R0 contains n. 

Illegal input (n < 0)? 

No, start operation by clearing 2044. 

Place first value of n in 2044. 
n = n— l 

Add next value (n — 1 ) to 2044, 

Overflow? 

No. 

Continue operation if n > 0. 

Operation complete if n = 0. 

Yes, illegal input. Clear R0, 2044. 

Yes, overflow. Clear 2044 only. 

Illegal input or overflow occurred. 

PERFORM SECOND PASS ENTRY OF 
PROGRAM. 

SYMBOLS ARE NO LONGER UNDEFINED AND 
ARE ASSIGNED CORRECT VALUES. 
UNRESOLVED ADDRESSES ARE RESOLVED. 
INPUT THE PROGRAM AGAIN STARTING AT 
LOCATION 2000. 

Set R1 = 0. 

R0 contains n. 

Illegal input (n < 0)? 

No, start operation by clearing 2044. 

Place first value of n in 2044. 
n = n— 1 

Add next value (n— 1 ) to 2044. 

Overflow? 

No. 

Continue operation if n > 0. 

Operation complete if n = 0. 

Yes, illegal input. Clear R0, 2044. 

Yes, overflow. Clear 2044 only. 

Illegal input or overflow occurred. 

STOP HOST LOADING. 
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4.17.6 An Illustration of the Host Loading Process 

This paragraph steps you through a session with the DCT1 1-EM during which you load the summation 
program you created on your host (see example l, Paragraph 4.17.5). 

Assuming you are in NOHOST mode, the first step is to get into LOAD mode by typing in: 

TEM> HOST LOAD 

Press RETURN until your host responds with its usual prompting character(s). 

Then direct your host to type or otherwise display on the console terminal the program you wish to load. 
This command might be in the form: 

TYPE SUMM 

where TYPE is the the command your host recognizes to display the program and SUMM is the name you 
gave the program. When the host starts typing the program, the following appears on your console 
terminal. (This program does not contain any undefined symbols and requires only one pass.) 


.START 

TF.M> ;THIS LINE MUST APPEAR FIRST. 


iDELETE ALL PREVIOUSLY DEFINED 
SYMBOLS. 

;ENTER THE PROGRAM STARTING AT 
LOCATION 2000. 


TEM> CLEAR 
TFM> 

TEM> . = 2000 
TEM> 

TEM> CLR R I 
TEM> CMP R0.R1 
TEM> BLH 2034 
TEM> CLR (&# 2044 
TEM> MOV R0,(« #2044 
TEM> DEC R0 
TEM> ADD R0,C#2044 
TEM> BVS 2036 
TEM> CMP RO.RI 
TEM> BGT 2016 
TF.M> HALT 
TEM> CLR R0 
TEM> CLR (e #2044 
TEM> HALT 
TEM> .END 
HOST> 

<your host's prompt appears on the last lino 


;Set R 1 = 0. 

;R0 contains n. 

illegal input (n < 0)7 

;No, start operation by clearing 2044. 

;Plaee first value of n in 2044. 

;n = n— 1 

;Add next value (n— 1) to 2044. 
;Overflow? 

;No. 

;Continuc operation if n > 0. 
;Operation complete if n = 0. 

;Yes, illegal input. Clear RO, 2044. 
;Yes, overflow. Clear 2044 only. 
.Illegal input or overflow occurred. 
;STOP HOST LOADING. 


The DCTl 1-EM successfully loaded your program and you are now back in HOST mode. The console 
monitor can now respond to your input. If you type in 2000, you can examine the program you just loaded 
by pressing RETURN repeatedly. 
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If your program is successfully being loaded into the DCT11-EM, each line is preceded by the TEM> 
prompt. If a program line causes a console error message, loading stops but typing continues (without the 
TEM> prompt). 

4.18 CONSOLE COMMAND SUMMARY 


General Form 


Operation 


expr 


Deposit the expression in RAM unless the expression is part of another 
command. Advance the address pointer accordingly. 


instr Assemble and deposit the instruction at the location indicated by the 

address pointer. Advance the address pointer accordingly. 

exprl expr2 Display the contents of the locations from exprl through expr2. If exprl is 

greater than expr2, only exprl contents displayed. 


expr? 

expr\ 


null line 


symbol=expr 

symbol: 

A 


Display numerically the value of the expression. 

Set the address pointer to the value of the expression. Display the contents 
of the location specified by the expression. 

Display, relative to the address pointer, the next eight instructions if in 
INSTRU mode, the next eight words if in WORD mode, or the next eight 
bytes if in BYTE mode. If single stepping, single step again. 

Define the symbol to be equal to the expression. 

Define the symbol to be equal to the current value of the address pointer. 

Decrement the address pointer by one byte if you are in BYTE mode or 
by one word if you are in WORD or INSTRU mode. 


Paragraph 


Form 

Reference 

Operation 

ABSOLU 

4.8.2 

Sets the ABSOLU mode. Causes user-defined 
symbols in programs to be displayed as numeric 
values. 

.ASCII /string/ 

4.15 

Generates a block of data containing the ASCII 
equivalent of the character string (enclosed in 
delimiting characters), one character per byte. 

,BLKB expr 

4.15 

Reserves a block of storage space whose length in 
bytes is determined by the specified expression. 

BLKW expr 

4.15 

Reserves a block of storage space whose length in 
words is determined by the specified expression. 
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.BYTE exprl, expr2, • • • 

4.15 

Generates successive bytes of data; each byte con- 
tains the value of the corresponding specified 
expression. 

BYTE 

4.8.2 

Sets the BYTE mode for memory examination 
and alteration operations. Causes memory to be 
displayed as three digit bytes. 

CANCEL 

4.14.1 

4.14.3 

Clears all four breakpoints and the watchpoint. 

CLEAR 

4.13.2 

Clears the user symbol table. 

DELETE symbol 

4.13.2 

Deletes user-defined symbol from the user symbol 
table. 

END 

4.17.4 

Used at the end of programs that are to be loaded 


into the DCT11-EM from a host. Causes the 
DCT1 DEM to terminate host loading if in LOAD 
mode. 


.EVEN 

4.15 

Ensures that the current address pointer contains 
an even address by adding 1 if it is odd. 

EXIT 

4.2 

Transfers console control to the keypad. 

GO 

4.14 

Executes the user program at the current PC 
value. 

HELP 

4.16 

Displays a table of commands. 

HOST 

4.17.1 

Sets the HOST mode. Allows the DCTI l-EM to 
receive messages from a host. 

INSTRU 

4.8.2 

Sets the INSTRU mode. Data is displayed as 
DCTI 1-AA assembly language instructions. Is set 
by default when the DCTI l-EM is powered up. 

LOAD 

4.17.1 

Sets the LOAD mode. Establishes host communi- 
cation. Allows the DCTI l-EM to begin loading if 
it encounters the .START command. 

NOHOST 

4.17.1 

Clears the HOST mode. Is set by default when 
the DCTI l-EM is powered up. 

PASSl 

4.17.5 

Sets the PASSl mode. Allows the use of unde- 
fined symbols. 

PASS2 

4.17.5 

Sets the PASS2 mode. Requires all symbols to be 
defined. Is set by default when the DCTI I -EM is 
powered up. 
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REPEAT expr,cmd 

4.16 

Repeatedly performs the specified command(s) 
by the number of times specified by the 
expression. 

SHOW MO 

4.16 

Displays the current operating modes of the 
DCT1 1-EM. 

SHOWRE 

4.6 

Display^ the contents of user registers and the 
watchpoint if the watchpoinl is set. 

SHOWSY 

4.13.2 

Displays the contents of the user symbol tabic. 

START 

4.17.5 

Used at the beginning of programs that are to be 
loaded into the DCT11-EM from a host. Causes 
the DCTl 1-EM to start host loading if in LOAD 
mode. 

STEP 

4.14.2 

Executes one instruction of a user program at the 
current value of the PC. Displays the contents of 
user registers and the watchpoint if the 
watchpoint is set. Displays the next instruction to 
be executed. 

SYMBOL 

4.8.2 

Sets the SYMBOL mode. Causes user-defined 
symbols in programs to be displayed as symbols 
rather than as numeric values. Is set by default 
when the DCTl 1-EM is powered up. 

TALK 

4.17.1 

Sets the TALK mode. Establishes host communi- 
cation. Allows you to communicate directly with 
a host as if the DCTl 1-EM were not there. Typi- 
cally used for program development on a host. 

VTOFF 

4.3 

Sets the VTOFF mode. Causes deleted characters 
to be echoed (preceded by a slash) on the console 
terminal when you press the DELETE key. Is set 
by default when the DCTl 1-EM is powered up. 

VTON 

4.3 

Sets the VTON mode. Characters you delete by 
pressing the DELETE key are not echoed in this 
mode. Typically used if you have a video terminal 
for a console. 

WORD exprl,expr2, • • • 

4.15 

Generates successive words of data; each word 


contains the value of the corresponding specified 
expression. 
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4.19 CONTROL COMMAND SUMMARY 


Command 

Meaning 

Typical Use 

CTRL/U 

CTRL/X 

Delete line. 

You made several typing errors in your input line. 
You want to cancel the line and try again. 

CTRL/R 

Display line. 

You used the DELETE key several times while 
typing your input line. You want to see a clean 
version of the line you are editing. 

CTRL/S 

Suspend execution. 

You want to suspend the operation of the console 
monitor or the execution of a currently running 
program. 

CTRL/Q 

Resume execution. 

You have previously used the CTRL/S command 
and want to resume operation. 

CTRL/C 

Abort operation. 

You want to abort the current CTRL/Y opera- 
tion of the DCT1 1-EM and input a new line. 

CTRL/O 

Ignore host message. 

You are in HOST mode (see Paragraph 4.17.1) 
and want to ignore information currently being 
sent by your host computer. 

CTRL/A 

Select option. 

You are in TALK or LOAD modes (see 
Paragraphs 4.17.3 and 4.17.4) and want to select 
one of these four options: exit, resume, send 
break, send CTRL/A. 
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CHAPTER 5 
SOFTWARE 


5.1 INTRODUCTION 

This chapter provides some information about the DCT11-EM monitor and introduces you to monitor 
subroutines you can use in your programs. The chapter also describes how address space is allocated in the 
DCT11-EM and shows you which areas are available and unavailable for use. 

This material is summary in nature. More detailed information can be found in the DCT1 1-EM monitor 
listing (see Appendix A) and in the DCT1 1-EM schematics (see Appendix B). 

5.2 THE MONITOR 

The monitor is a PROM resident program that controls the operation of the DCT1 1-EM. Its main purpose 
is to provide an environment in which you can develop and run programs. The portion of the monitor that 
allows you to operate the DCT1 1-EM with the keypad is called the keypad monitor and the portion that 
lets you use a console terminal is called the console monitor. When you learned how to operate the 
DCT1 1-EM with the keypad and console in Chapters 3 and 4, you were really learning how to get the 
monitor to do things for you. 

When you execute a program, the monitor relinquishes control of the DCT11-EM to your program. 
Control is returned to the monitor (i.e., the monitor is restarted) by any of the following ways: 

1 . Pressing the HALT switch 

2. Executing a HALT instruction 

3. Encountering a breakpoint or executing a BPT instruction 

4. Attempting to execute an illegal instruction 

5. Performing a single step 

6. Sending a BREAK from a console terminal 

7. Executing a JMP @#140010 instruction 

8. Sending a CTRL/C or CTRL/Y command from a console terminal 

The first two ways (1 and 2) always return control to the keypad monitor. The remaining ways (3 through 
8) return control to the keypad monitor if you are using the keypad or the console monitor if you are using 
a console terminal. When control is returned to the keypad monitor, the PC is displayed on the LEDs and 
you are in register mode. (If a flashing error message appears on the LEDs, press the HALT switch or any 
key to display the PC.) When control is returned to the console monitor, a TEM> prompt is displayed on 
your console terminal. Refer to Appendix A for details about how the HALT and BPT instructions 
interact with the monitor. Also refer to Appendix A for information on the effects of setting the T-bit. 
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When you return control to the monitor, the DCTi I -EM registers contain the values they had at the time 
your program stopped with the following exceptions. 

1 . If you execute a JMP @#140010 instruction, the PC is restored to the value it had when your 
program started. This allows easy restarting of the program. 

2. If you type CTRL/C or CTRL/Y from a console terminal, all the DCTI 1-EM registers are 
restored to the values they had when your program started. 

3. If you encounter a breakpoint, the stack pointer is set to the value it had just before the 
breakpoint occurred. 

5.2.1 The Stack Pointer 

The monitor initializes your stack pointer to 7400 when you power up. The monitor also checks to make 
sure your stack pointer is in the range 4 through 7400, inclusive (for the keypad monitor), or 4 through 
6500, inclusive (for the console monitor), before it allows your program to execute. It is up to you, 
however, to make sure the stack pointer has a reasonable value before you attempt to run a program. 

For example, it is a good idea to make sure your stack pointer and the information you push onto the stack 
do not overlap your program. To decrease the chance of this happening, set the stack pointer well above 
the area in which your program resides. 

5.3 MONITOR SUBROUTINES 

Several portions of the DCTI 1-EM monitor are accessible to your programs as subroutines. If you want to 
use one of these subroutines in your program, simply include a JSR instruction in the form: 

JSR PC,@#subroutine 

where subroutine refers to the address of the desired subroutine. 


Subroutine mnemonics arc defined within the monitor only, so make sure your program defines these 
mnemonics before it uses them as symbols. 

5.3.1 Keypad/LED Subroutines 


Address 

Mnemonic 

Description 

140014 

DGDISP 

Display Hex Digit 

Takes the value contained in the lower four bits of R0 and 



displays it as a hexadecimal number on the LED digit indexed 
by Rl. Values of Ri correspond to LED digits as follows. Uses 
R0 and Rl. 
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Address 

Mnemonic 

Description 

1 40020 

UPDISP 

Display Octal Number on Upper LEDs 

Takes the value in R2 and displays it as a six-digit octal number 
on the upper row of LEDs. Uses R0 and R 1 . 

[40024 

LODISP 

Display Octal Number on Lower LEDs 

Takes the value in R2 and displays it as a six-digit octal number 
on the lower row of LEDs. Uses R0 and R 1 , 

140030 

DEC DSP 

Display Decimal Number 

Takes the value in Rl and displays it as a five-digit decimal 
number on the row of LEDs indexed by R2. R2 = 12 for the 
lower row, R2 = 13 for the upper row. Uses R0, Rl, R2, and 
R3. 

140034 

UPBLNK 

Clear Upper Row 

Blanks out the upper row of LEDs. Uses R0 and R 1 . 

140040 

LOBLNK 

Clear Lower Row' 

Blanks out the lower row of LEDs. Uses R0 and Rl, 

140044 

GETKEY 

Get Key Number 


Turns on LEDs and waits for a keypress. When a keypress 
occurs, takes the number of the key and stores it in R 1 . Keys are 
numbered as follows. 



140050 BCDKEY Convert Key Number to BCD 

Takes the key number in R! and converts it to a BCD value for 
the keys 0 through 9. Returns 12 for the CLR key and 13 for 
the EXA key. Returns —1 (i.e., 177777) for any other key. 
Stores the result in R 1 . 
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Address Mnemonic Description 

140054 GETNUM Input Number From Keypad 

Displays the value in R2 as a six-digit octal number on the lower 
row of LEDs. Enables the user to modify the value of R2 using 
keys 0 through 7 and CLR. Stores modified value in R2 when 
the EX A key is pressed. Uses R0, Rl, and R2. 

5.3.1. 1 Using the LEDs and Keypad - This paragraph contains some information you may find useful 
when writing programs that use the LEDs and keypad. This is intended as introductory material only. For 
further detail, refer to the monitor listing in Appendix A and the DCT1 1-EM schematics in Appendix B. 

You can create your own characters to display on the LED digits. First, form bytes that represent the 
segment patterns of the characters you wish to display as shown in Figure 5-1. 


rip* 



Figure 5-1 LED Segment Assignments 


For example, 0 1 1 1 0 1 00 (or 164 octal) corresponds to the letter h and 01001111 (or 117 octal) corresponds 
to the numeral 3. 

Then, move the bytes containing the segment patterns to locations 7712 through 7725. These locations 
(collectively called SEGBUF) are used by the LED interrupt service routine in the monitor to display 
segment patterns on the LEDs. Each location (byte) corresponds to an LED digit as shown in Figure 5-2. 


UPPER ROW 

OF 

7725 

7723 

7721 

771 7 

7715 

7713 

LbUS 








LOWER ROW 
Of 

7 724 

7722 

7/20 

7716 

7714 

771? 

LEDS 








Figure 5-2 SEGBUF Assignments 


For example, if you moved 164 (octal) to location 7721, 1 17 (octal) to location 7717, and 0 to all the other 
SEGBUF locations, you would display h3 centered in the upper row of LEDs. 

Finally, turn on the LEDs by writing 000007 to port C of the 8255A parallel port chip (address 177444). 
Make sure your program keeps the LEDs on long enough for you to see them. One way of leaving the 
LEDs on is to incorporate one or more delay loops in your program of the form: 

CLR R5 
SOB R5„ 
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The LED interrupt (INTA) is disabled (i.e., the LEDS are turned off) by writing 000010 to port C of the 
8255A chip. This also disables the user LED. 

To turn on the user LED (which, incidentally, also disables the LED digits), write 00001 1 to port C of the 
8255A chip. 

Examples of displaying values on the LEDs are provided in Paragraph 5. 3. 1.2. You can also create your 
own interrupt service routines to respond to keypresses. When a key is pressed, program control is 
transfered to the routine pointed to by 7676. If 7676 is zero, keypresses are ignored. The number of the 
key pressed is available to your routine through Rl. See the description of the GETKEY subroutine in 
Paragraph 5.3.1 for key numbers. 

In order for a keypress to be sensed, the LEDs must be enabled. This can be done by writing 000007 to 
location 177444 as explained above or by executing your program from the keypad with the “Go With 
LEDs” special function (see Paragraph 3.12.2). 

At the end of your keypress service routine, include the sequence: 

MOV <SP)+,R2 
MOV (SP)+,R 1 
MOV (SP)+,R0 
RT1 

to restore the state of your interrupted program. As an example, here is a program which loops on itself 
and increments R3 each time a key is pressed. To check the operation of the program, start it at location 
1000 and press keys. Press HALT and examine R3. 




Symbolic 


Address 

Data 

Representation 

Comments 

1000 

012737 

MOV #7,@# 177444 

;enable keypad 

1002 

000007 



1004 

177444 



1006 

012737 

MOV #1500,@#7676 

;attach interrupt routine 

1010 

001500 



1012 

007676 



1014 

000774 

BR 1006 

;loop infinitely 

1500 

005203 

INC R3 

interrupt service routine 

1502 

012602 

MOV (SP)+,R2 

1504 

012601 

MOV (SP)+,R I 


1506 

012600 

MOV (SP)+,R0 


1510 

000002 

RTI 



5.3. 1.2 Using Keypad/LED Subroutines - Example Programs - The following examples show you how 
to use keypad/LED subroutines. 

Example 1 - Countdown Program This program decrements a number at a rate inversely proportional to 
the number’s size. The program begins by displaying the word "EntEr" on the upper row of LEDs. You 
enter a number (which is displayed on the lower row of LEDs) and press the EXA key. The number is 
displayed as it is decremented. The program initializes itself at the end to allow you to enter another 
number. 

There are undefined symbols in this program, so if you enter the symbolic version via the console terminal, 
make sure you incorporate the PASS1 and PASS2 commands as described in Paragraph 4.17.5. 
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Symbolic 


Address 

Data 

Representation 

Comments 



SEGBUF = 7712 

;LED segment buffer 



LODISP = 140024 

;octal number on lower LEDs 



GETNUM = 140054 

;input number from keypad 



. = 1000 

position program at location 
;1000 

1000 

012701 

TEST: MOV #SEGBUF+1,R1 

;point to rightmost 

1002 

007713 


;digit of upper row of LEDs 

1004 

012700 

MOV #6,R0 

;set digit count = six digits 

1006 

000006 



1010 

1 1602! 

TESTl: MOVB ENTER-1 (R0),(R1)+ 

transfer character to 

1012 

001063 


;digit in upper row of LEDs 

1014 

005201 

INC R1 

;ad vance pointer to next 
;digit in upper row of LEDs 

1016 

077004 

SOB R0,TEST1 

;loop to transfer all six 
characters 

1020 

004737 

TEST2: JSR PC,@#GETNUM 

;input an octal number from 

1022 

140054 


;the keypad 

1024 

005702 

TEST4: TST R2 

;reject zero as an input 

1026 

001774 

BEQ TEST2 

;if zero, get a new number 

1030 

012701 

MOV #3,Rl 

;call delay routine three 

1032 

000003 


;times 

1034 

004767 

TEST3: JSR PC, DELAY 

;wait a while 

1036 

000012 



1040 

077103 

SOB R1,TEST3 


1042 

005302 

DEC R2 

decrement entered number 

1044 

004737 

JSR PC,@#LODISP 

;display new value 

1046 

140024 



1050 

000765 

BR TEST4 

;see if we have zero yet 

;DELAY loops a number of times inversely proportional to the size 


;of R2. Thus there is 

a smaller delay when R2 is large. 


1052 

012700 

DELAY: MOV #-l,R0 

;set dividend 

1054 

177777 



1056 

160200 

DELAY 1: SUB R2,R0 

;divide by successive 

1060 

103376 

BCC DELAY 1 

;subtraction; keep 
subtracting until 
;underflow occurs 

1062 

000207 

RTS PC 


; ENTER is a list of 

bytes corresponding to the segment patterns 


; “EntEr” 




1064 

052171 

ENTER: .BYTE 171,124,170,171,120,0 


1066 

074570 



1070 

000120 
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Example 2 - Clock Program 

This program displays a minutes and seconds clock on the lower row of LEDs. The values for minutes and 
seconds are obtained from a timer maintained by the monitor. You can use the INT switch to set minutes. 
Note that the upper row of LEDs and the left-most digit of the lower row display the current contents of 
the LED segment buffer for those digits. 

All symbols referenced in this program are defined. The symbolic version of the program will run if 
entered as follows. As an exercise, try to modify the program so that the upper row of LEDs and the left- 
most digit of the lower row of LEDs are blank when the program is running. 




Symbolic 


Address 

Data 

Representation 

Comments 



PFVEC = 24 

;INT switch vector 



TIME = 7730 

;upper six bits count seconds 



SEGBUF - 7712 

;LED segment buffer 



MINUTS = 776 

location to hold minutes count 



DECDSP = 140030 

;disp!ay decimal number 



PSPORC = 1 77444 

;LED/keypad I/O port on 8255A 



SETIME = 1200 

;subroutine to set minutes 



= 1000 

;position program at loc. 1000 

1000 

012706 

CLOCK: MOV #6500, SP 

initialize stack pointer 

1002 

006500 


1004 

106427 

MTPS #0 

;sct low priority 

1006 

000000 



1010 

012737 

MOV #SETIME,@#PFVEC 

;connect minute set 

1012 

001200 


;routine to INT switch 

1014 

000024 



1016 

005037 

CLR @#TIME 

;clear seconds and second 

1020 

007730 


Tractions 

1022 

005067 

CLR MINUTS 

;clear minutes 

1024 

177750 



1026 

1 12737 

MOVB #7,@#P$PORC 

;turn on LEDS 

1030 

000007 



1032 

177444 



1034 

032737 

LOOP: BIT #1000,(gt#TIME 

;wait for seconds to 

1036 

001000 


;change 

1040 

007730 



1042 

001774 

BEQ LOOP 


1044 

032737 

LOOP 1 : BIT #1000,(5j#TIME 


1046 

001000 



1050 

007730 



1052 

001374 

BNE LOOP1 


1054 

013701 

SHOWIT: MOV @#T1ME,R1 

;show time 

1056 

007730 



1060 

000301 

SWAB R1 

;get seconds 

1062 

006201 

ASR R1 


1064 

006201 

ASR R1 


1066 

042701 

B1C # 1 77700, R1 

;mask out fractions of 

1070 

177700 


;seconds 

1072 

001010 

BNE .+22 

;not a new minute (BNE CLKI) 

1074 

005267 

INC MINUTS 

;else count minutes 
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Symbolic 


Address 

Data 

Representation 

Comments 

1076 

177676 



1)00 

026727 

CMP MINUTSJ60. 

;overflow? 

1102 

177672 



1104 

000074 



1106 

103402 

BLO .+6 

;no (BLO CLK1) 

1110 

005067 

CLR MINUTS 


1112 

177662 



1 1 14 

016702 

CLK1: MOV MINUTS,R2 

;get minutes 

1116 

177656 



1120 

012700 

MOV #3,R0 

;shift minutes over three 

1122 

000003 


;digits 

1124 

006302 

LOOP2: ASL R2 

; multiply R2 by 10 to shift 

1126 

010246 

MOV R2,-(SP) 

;one decimal digit to the left 

1130 

006302 

ASL R2 


1132 

006302 

ASL R2 


1134 

062602 

ADD (SP)+,R2 


1136 

077006 

SOB RO,LOOP2 

;loop three times to make X 1000 

1140 

060201 

ADD R2,R1 

;add minutes to seconds 

1142 

012702 

MOV #10,R2 

;index lower display 

1144 

000010 



1146 

004767 

JSR PC,@#DECDSP 

;display time 

1150 

136656 



1152 

112737 

MOVB # 1 00,@#SEGBUF+4 

;display dash between 

1154 

000100 


;minutes and seconds 

1156 

007716 



1160 

000725 

BR LOOP 




. = 1200 


1200 

005037 

SETIME: CLR @#TIME 

;reset seconds to increment 

1202 

007730 


;minutes 

1204 

012706 

MOV #6500, SP 

; reinitialize stack 

1206 

006500 



1210 

106427 

MTPS #0 

;reinitialize priority 

1212 

000000 



1214 

000717 

BR SHOWIT 

;display new time 


As an exercise, try to modify the program so that the upper row of LEDs and the left-most digit of the 
lower row of LEDs are blank when the program is running. 

5.3.2 Console Subroutines 


Address 

1 40060 

Types an angle bracket and space (> ) as prompting characters 
and awaits input from the console terminal. Echoes characters 
as they are typed in. Stores these characters (up to 96 per line) in 
a character buffer. Uses RO, R3. 


Mnemonic Description 

GETL1N Get Input Line 
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Address 

140070 

140100 

140104 

140120 

140124 

140134 

140140 

140144 


Mnemonic 

GETCH 


GETCHC 


GETNXT 


CRLF 

CHROUT 


CHR02 


ASCOUT 


PRINTA 


Description 

Get Character 

Retrieves the character indexed by R3 from the character buff- 
er. R3 must have a value from 0 to 137 octal (95 decimal). 
Stores the character in the lower byte of R0 and increments R3. 
Lowercase characters are converted to uppercase. Sets the N 
condition code bit if the character is a separator (space, tab, 
feed). Sets the C condition code bit if the character has been 
converted from lowercase to uppercase. Uses R0, R3. 

Get Character, Preserve Case 

Retrieves a character with its case intact from the character 
buffer. Uses R3 as an index to the character. R3 must have a 
value from 0 to 137 octal (95 decimal). Stores the character in 
the lower byte of R0 and increments R3. Uses R0, R3. 

Get Character, Ignore Separators 

Retrieves the next character in the character buffer which is not 
a separator (space, tab, feed). Uses R3 as a starting point index. 
R3 must have a value from 0 to 137 octal (95 decimal). Stores 
the character in the lower byte of R0 and increments R3 in 
accordance with the number of separators encountered. Lower- 
case characters are converted to uppercase. Sets the C condition 
code bit if a character has been converted from lowercase to 
uppercase. Uses R0, R3. 

Type Carriage Return, Line Feed 

Types a carriage return and line feed on the console. 

Type One or Two ASCII Characters 

Takes the value in the lower byte of R0 and types it as an ASCII 
character on the console. If the upper byte of R0 has a nonzero 
value, it is also typed as an ASCII character on the console. Uses 

R0. 

Send Byte to Auxiliary Port 

Takes the value in the lower byte of R0 and sends it to the 
auxiliary serial port. Uses R0. 

Type One ASCII Character or String 

Takes the value in the lower byte of R0 and types it on the 
console either as an ASCII character or as an ASCII string of 
characters. ASCII strings that can be typed include <ESC>, 

<SP>, <DEL>, and A A through A where the caret denotes a 

control character. Uses R0. 

Type ASCII String 

Takes a string of bytes starting at the location pointed to by R1 
and types them on the console as ASCII characters until until a 
byte whose value is zero is is encountered. Uses R0, R 1 . 
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Address Mnemonic 

140160 TYPOCT 


140164 TYPDEC 


Description 

Type Octal Number 

Types the value in R1 on the console as a six-digit octal number 
if in the INSTRU or WORD output formatting modes. Types 
the lower byte of R I on the console as a three-digit octal number 
if in BYTE mode. Uses R0, Rl. 

Type Decimal Number 

Types the value in Rl on the console as a signed five-digit 
decimal number followed by a period. Uses R0, Rl. 


5.3.2. 1 Console Character Manipulation - The console subroutines just described provide most of the 
functions you will require to manipulate characters via the console. If you require other functions, refer to 
the monitor listing in Appendix A. 


Keep the following in mind when using the GETCH, GETCHC, and GETNXT subroutines. 


When you use these subroutines, characters you input via the console terminal are stored in a 96-character 
buffer maintained by the monitor called BUFFER. All three subroutines use R3 as a pointer to determine 
which character within BUFFER is retrieved. Since BUFFER is 96 characters in length, R3 can have a 
value from 0 through 137 (octal), inclusive. For your convenience, the subroutines automatically incre- 
ment R3 to point to the next character to be retrieved. 


5.3.2.2 Using Console Subroutines - Sample Program 


; NIM for the TEM 

; In this version of NIM, there are 21 sticks. The game requires 2 
;players (the user and the TEM). The players take turns picking up 
,1, 2, or 3 sticks. The object of the game is to leave 1 stick for 
,the other player to pick up in the last turn. The algorithm used 
by the TEM ensures that it will win if it goes second, or if it goes 
.first and the other player leaves it an opportunity to win. 

; Operation of the game is explained by prompts. All responses by the 
;user must be terminated with a carriage return. However, several 
responses may be typed together on a line, separated by commas, and 
will be taken as needed by upcoming prompts for input. 

There are undefined symbols in this program, so if you enter the 
symbolic version via the console terminal, make sure you incorporate 
the PASS1 and PASS2 commands as described in Paragraph 4.17.5. 
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;***•♦*♦*** SYMBOL DEFINITIONS *********** 


CLEAR ;empty symbol table 


MON1TR = 140010 
GETLIN - 140060 
GETNXT = 140104 
CRLF = 140120 
CHROUT = 140124 
PRINT A = 140144 
TYPDEC = 140164 


;reentry point for monitor 

;get a line from the console 

;get next significant character from BUFFER 

;send <CR>,<LF> to console 

;send a character to console 

;print an ASCII string 

;type a decimal number on the console 


CR 

-- 15 

LF 

= 12 

SPACE 

= 40 

STICKS 

= 21 


;<CR> 

;<LF> 

;space 

jinitial number of sticks 


. 4c **** * ****** 


START OF PROGRAM ************ 


. = 1000 

NIM: MOV #GREET,R1 

JSR PC,@#PRINTA 

NEWGAM:CLR R5 
CLR R3 

NEWl : MOV #MEORU,Rl 

JSR PC,@#PRINTA 
JSR PC,@#GETLIN 
JSR PC,@#GETNXT 
CMPB ROJ’M 
BEQ TEMGO 
CMPB ROJ’Y 
BEQ USERGO 
CMPB ROJ’Q 
BNE NEWl 
JMP @#MONITR 


;print greeting message on console 

;show no sticks taken yet 

;(number of sticks left = STICKS - R5) 

;ask who plays first 
;wait for response from console 
;get first meaningful character 
;m(e) means TEM goes first 

;y(ou) means user goes first 

;q(uit) means return to monitor 

;lf user has not entered a valid response, 

;prompt for response again. 
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USERGO: MOV #LEFT1,R1 

JSR PC,@#PR1NTA 
MOV #ST1CKS,R1 
SUB R5,R1 
MOV Rl,R2 
JSR PC>,#TYPDEC 
MOV #LEFT2,R1 
JSR PC,@#PRINTA 
JSR PC,@#CRLF 

USER1: MOV #400*SPACE+’/,R0 

JSR PC,@#CHROUT 
SOB R2,USER1 

JSR PC,@#GETNXT 
CMPB R0,f , 

BEQ NEXT 

USER2: MOV #H0WMNY,R1 

JSR PC.@#PRINTA 
JSR PC,@#GETLIN 
NEXT: JSR PC,@#GETNXT 

CMPB R0,fl 
BLO USER2 

CMPB RO.f 3 
BH1 USER2 
SUB f 0,R0 
ADD R0.R5 
CMP R5JSTICKS-1 
BLO TEMGO 
BHI USER 4 
MOV fLOSE.Rl 
JSR PC,@#PRINTA 
JMP NEWGAM 

USER4: MOV #GOOFED,Rl 

JSR PC,@#PRINTA 
JMP NEWGAM 

TEMGO: MOV #MYM0VE,R1 
JSR PC,@#PRINTA 

MOV R5,R1 
NEG R1 
BIC #177774, R1 
BNE TEM1 
MOV #2,RI 


;print header for number of sticks left 

calculate number of sticks left 

;save a copy of result 

;type decimal value on the console 

; finish message 
;start a new line 

;put in RO the character pair “/” 
;type a “stick’' on the screen 
;loop to type the appropriate number 
;of sticks 

;get next character 
;is it a comma? 

;yes, get next move from line. 

;ask how many sticks the user wants 
;get a line 

;get first/next meaningful character 
;on line 

;illegal response, throw away line and 
;try again 

;illegal response 

;convert digit in RO into a number 
;add to sticks already taken away 
;is only 1 stick left? 

;no, it’s TEM’s turn 
;user took too many sticks 

;announce the loss 
;ask about another game 


;tell the idiot that he goofed up 
;and ask about another game 


;type beginning of TEM’s move on 
;console 

;get number of sticks taken so far 
;implemcnt algoritm to select move: 
;if R5 MOD 4 = 0, take 2 sticks 
; R5 MOD 4=1, take 3 sticks 
; R5 MOD 4 = 2, take 2 sticks 
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TEM1: 

ADD Rl ,R5 

; R5 MOD 4 = 3, take 1 stick 


JSR PC,@fTYPDEC 

MOV #MYMOVl,RI 

;show how many sticks TEM is taking 


JSR PC,@#PRINTA 

;finish message 


CMP R5JSTICKS-1 

;is there only 1 stick left? 


BLO USERGO 

MOV #IWIN,R1 

;no, it’s the user’s turn 


JSR PC,@#PRINTA 

tannounce the victory 


JMP NEWGAM 

;and ask about a new game 

GREET: 

BYTE CR,LF 

.ASCII /NIM for the TEM/ 

BYTE CR,LF,0 


MEORU: 

BYTE CR,LF 



.ASCII /Who goes first? Me (M) or 
.BYTE 0 

you (Y)? (Q to quit)/ 

LEFT1 : 

BYTE CR,LF 
.ASCII /There are / 

BYTE 0 


LEFT2: 

.ASCII / sticks left./ 

.BYTE 0 



HOWMNY : .BYTE CR,LF 

.ASCII /Haw many sticks will you take? (I, 2, or 3)/ 

BYTE 0 

MYMOVE: BYTE CR,LF 
.ASCII /I lake / 

BYTE 0 

MY MOV 1 : .ASCII / stick(s)./ 

BYTE 0 

I LOSE: .BYTE CR,LF,LF 

.ASCII /You win!!! I demand a rematch!/ 

BYTE 0 

IWIN: BYTE CR,LF,LF 

.ASCII /I win!!! Want to trv again?/ 

BYTE 0 

GOOFED: .BYTE CR,LF,LF 

.ASCII /You goofed up! Can you get it right this time?/ 

.BYTE 0 

5.4 DCTI1-EM ADDRESS SPACE 

DCT1 1-EM address space is organized as shown in Figure 5-3. Functionally, the address space consists of: 
standard RAM space, expansion RAM space, monitor space, I/O space, space available for external 
hardware, and reserved space. 
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1 77777 



MR 1 D3r»0 

Figure 5-3 DCT11-EM Memory Map 
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5.4.1 Standard RAM Space 

Addresses 000000 through 007777 are allocated to the RAM that comes standard with the DCT1 1-EM. 
This RAM space is utilized as follows. 


Addresses 

Use 

000000-000143 

Interrupt and Other Vectors. Contains vectors that point to 
service routines for various interrupt, trace, and trap conditions. 
See Chapter 6 for specific vector addresses. 

000144-006477 

User RAM Space. Space available for user programs. 

006500-007317 

Symbol Table (Console Monitor Only). Can contain up to 66 
user defined symbols. 

007320-007377 

Console Monitor Scratchpad. Area for use by the console 
monitor. 

007400-007777 

Keypad Monitor Scratchpad. Area for use by the keypad moni- 
tor and console monitor. 


If you are using only the keypad, the symbol table and console monitor scratchpad areas arc available to 
you as user RAM. 

The monitor ordinarily protects certain areas of RAM from direct alteration. If you are using the keypad 
only, the keypad monitor scratchpad is the only area of protected RAM. If you are using a console 
terminal, however, the symbol table, console monitor scratchpad, and keypad monitor scratchpad are all 
protected. You can remove protection by activating special function 4 from the keypad (see Paragraph 
3 1 2.5). 

Note that “protection” refers only to protection from direct alteration, such as examining a location from 
the keypad or console and then trying to change the location. An executing program can violate any RAM 
location. To avoid unpredictable results, therefore, make certain your programs do not inadvertantly write 
data into areas not available as user RAM. 

5.4.2 Expansion RAM Space 

If you insert two 2 K X 8 RAMs into the expansion sockets (see Paragraph 5.3), another portion of user 
RAM space at locations 020000 through 027777 becomes available to you. 

5.4.3 Monitor Space 

The monitor space is the space occupied by the keypad and console monitors which reside in two 8 K X 8 
PROMs at locations 120000 through 157777. 

5.4.4 I/O Space 

Locations 177400 through 177577 are designated as space for the DCT1 1-EM’s I/O chips. The 8255A 
parallel port, the 8251 A auxiliary serial line, and the DC319 DLART console serial line all use this space. 
The I/O space consists of locations that can be written only and locations that can be written or read. 
Figure 5-4 provides a detailed breakdown of how the I/O space is used. 
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1 77577 


177566 

DLART TRANSMITTER DATA BUFFER 

1 77564 

DLART TRANSMITTER COMMAND/ STATUS REG. 

177562 

DLART RECEIVER DATA BUFFER 

177560 

DLART RECEIVER COMMAND/STATUS REG. 





1 77552 

8251 STATUS REGISTER 

1 77550 

8251 RECEIVER DATA BUFFER 



177544 

8255 PORT C (INPUT FROM UPPER 4 BITS) 

177542 

8255 PORT B (8-BIT INPUT] 

177500 


177477 


177452 

8251 CONTROL REGISTER 

177450 

8251 TRANSMIT DATA BUFFER 

1 77446 

8255 COMMAND REGISTER 

1 77444 

8255 PORT C (OUTPUT TO LOWER 4 BITS) 

177442 

8255 PORT B (8-BIT OUTPUT] 

177440 

8255 PORT A (8-BIT OUTPUT) 

1 77400 



I READ/WRITE 
f I/O SPACE 


I WRITE ONLY 
f I/O SPACE 


MR 10331 


Figure 5-4 Map of I/O Space 


5.4.5 Space Available For External Hardware 

The following space is available to you for any expansion hardware you may wish to design: 

040000-077777 167600-177377 

160000-167377 177600-177777 

An example of a piece of external hardware that could use this space is a RAM board which responds to 
addresses 040000 through 057777. Further information on hardware expansion is provided in Chapter 6. 

5.4.6 Reserved Space 

The shaded space in Figure 5-3 is reserved and unavailable for use. The addresses affected are: 

010000-017777 100000-117777 

030000-037777 167400-167577 
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CHAPTER 6 
HARDWARE 


6.1 INTRODUCTION 

The DCT1 1-EM hardware is organized as shown in Figure 6-1. In general, the hardware consists of: 

• The DCT1 LA A microprocessor 

• RAM 

• Monitor EPROM 

• Peripheral chips and drivers 

• An internal data bus buffer 

• User buffers 

• Microprocessor control signal decoding logic 

• Address latching and range decoding logic 

• Peripheral chip address decoding logic 

• Interrupt logic 

• Timing logic 

• Miscellaneous control logic 

• Keypad/LEDs and supporting logic 

• The HALT and INT push-button switches 

• Connectors 

The paragraphs that follow provide information on each of these. Refer to the DCT1 1-EM schematics in 
Appendix B for further details. 

Paragraph 6. 1 7 contains a design for an expansion memory board you can build. 
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Figure 6-1 DCT11-EM System Block Diagram 






















6.2 DCT11-AA MICROPROCESSOR 

The DCT! 1-AA microprocessor is the heart of the system. A detailed discussion of the operation and 
architecture of the DCT1 1-AA is beyond the scope of this book. Refer to the DCTU-AA User’s Guide 
(EK-DCTl 1-UG) for this information. 

At power-up or when a RESET instruction is executed, the DCT] 1-AA mode register bits arc set to the 
following states and cannot be changed. 

Mode 

Register Bits State Mode 

<15:13> 000 Start address = 140000 

Restart address = 140004 

1 2 1 User 

1 i 0 16-bit bus 

10 1 4 K/16 K memory 

9 0 Dynamic memory 

8 0 Normal read/write 

1 1 Standard microcycle 

0 1 COUT = processor clock 

This mode configuration has the following implications: 

• Bit <11> = 1 - This allows you to use either 8-bit or 16-bit data paths in your expansion 
circuitry designs. If 8 bits, simply use the lower 8 bits of the 16-bit bus. 

• Bits <10:09> = 10 - This allows you to use inexpensive 16 K dynamic RAMs for off-board 
memory expansion (see Paragraph 6.17). 

• Bit <8> = 0 - This allows you to design expansion hardware with devices that respond to either 
normal or delayed read/write controls. If you use devices that respond to delayed read/write 
controls, include delay circuitry in your design. 

NOTE 

Do not use a RESET instruction in your program 
unless your program reconfigures (i.e., reinitializes) 
your peripheral chips. RESET causes the DCT11- 
AA to assert -BCLR which resets the peripheral 
chips. 

6.3 RAM 

There are two 2 K X 8 CMOS static RAM chips in the basic DCT11-EM which provide 4 K bytes of 
memory space. These RAMs respond to addresses 000000 through 007777. Even numbered or low bytes 
reside in one RAM, and odd numbered or high bytes reside in the other. 

There are two expansion sockets on the board which can accommodate two additional 2 K X 8 static 
RAMs. The RAMs in these sockets respond to addresses 020000 through 027777. One RAM stores low 
bytes and the other stores high bytes. 
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Although the DCT1 1-AA generates refresh cycles as a result of being set to dynamic memory mode, this 
is for the benefit of off-board expansion with dynamic RAMs. The on-board static RAMs ignore the 
refresh cycles. 

6.4 MONITOR EPROM 

The DCT1 1-EM monitor is contained in two 8 K X 8 EPROM chips. The EPROMs respond to addresses 
120000 through 157777. 

Note that accesses to memory locations above 100000 cause a single cycle slip. This is not only for the 
benefit of the monitor EPROMs, but also for the peripheral chips and any slow expansion hardware which 
may be attached. Cycle slips are disabled if the jumper is installed (see Paragraph 2.5). If you install the 
jumper, make sure you also decrease the microprocessor's 7.5 MHz clock frequency to a value between 3 
MHz and 6 MHz by changing the crystal. 

6.5 PERIPHERAL CHIPS AND DRIVERS 

The peripheral chips are the 8255A parallel port, the DC319-AA DLART console serial line, and the 
8251 A auxiliary serial line. The DLART and the 8251 A have EIA drivers associated with them so that 
they can communicate with RS232-C devices. The locations reserved for use by the peripheral chips are 
listed in Table 6-1. 


Table 6-1 Reserved I/O Locations for Peripheral Chips 


Location 

Number 

Location 

Type 

Use 

177566 

Read/write 

DLART transmitter data buffer 

177564 

Read/write 

DLART transmitter command/status register 

177562 

Read/ write 

DLART receiver data buffer 

177560 

Read/write 

DLART receiver command/status register 

177552 

Read/write 

8251 A status register 

177550 

Read/write 

8251 A receiver data buffer 

177544 

Read/write 

8255A port C (input from upper 4 bits) 

177542 

Read/write 

8255A port B (8-bit input) 

177452 

Write only 

8251 A control register 

1 77450 

Write only 

8251 A transmit data buffer 

177446 

Write only 

8 25 5 A command register 

177444 

Write only 

8255A port C (output to lower 4 bits) 

177442 

Write only 

8255A port B (8-bit output) 

177440 

Write only 

8255A port A (8-bit output) 


6.5.1 Parallel Port (8255 A) 

The 8255A parallel port chip has two 8-bit ports and two 4-bit ports, all independently controllable. Port A 
(8 bits) is dedicated to supplying LED segment data to the LED segment drivers. Port A is configured as 
output only. Port B (8 bits) is initially configured as an input port and is available to your expansion 
hardware via the 60-pin connector. You can configure port B as either an input port or an output port. Port 
C is really two independent 4-bit ports. The upper four bits of port C are dedicated to sensing keypresses 
and are configured as input only. The lower four bits of port C are dedicated to turning on the LEDs and 
enabling the keypad. These lower four bits are configured as output only. 

For detailed information on programming the 8255A, refer to the Intel Component Data Catalog (availa- 
ble from Intel Corp., 3065 Bowers Ave., Santa Clara, CA 95051). The order number is 210298-001. 
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6.5.2 DLART Console Serial Line 

The DLART (DC319-AA) is an asynchronous receiver/transmitter which the DCT11-EM uses to com- 
municate with a console terminal. 

The DLART can generate receiver, transmitter, and break detection interrupt requests. See Paragraph 
6.1 1 for more information on interrupts. 

The 800 Hz clock output of the DLART is used to generate the INTA interrupt request which causes the 
LEDs and keypad to be activated. Again, see Paragraph 6.1 1. 

Detailed information on programming the DLART is contained in the DLART Data Sheet (ED-23181). 

6.5.3 Auxiliary Serial Line (8251A) 

The 8251 A auxiliary serial line chip is a universal synchronous/asynchronous receiver/transmitter 
(USART) which the DCTl 1-EM uses for general purpose asynchronous serial communications. Typically, 
the auxiliary serial line is used for communicating with a host computer. 

The auxiliary serial line features modem control. The Data Carrier Detect and the SYNDET functions of 
the 8251 A, however, are not used in the DCTl 1-EM. 

For detailed information on programming the 8251 A, refer to the Intel Component Data Catalog (availa- 
ble from Intel Corp., 3065 Bowers Ave., Santa Clara, CA 95051). The order number is 210298-001. 

6.6 INTERNAL DATA BUS BUFFER 

The internal data bus buffer is not accessible to you directly but is the buffer through which most of the 
data in the DCTl 1-EM passes. It buffers DAL<15:00>, the microprocessor’s primary data bus. 

6.7 USER BUFFERS 

The DCTl 1-EM has three user buffers. One buffer provides access to DAL<15:00>, the main internal 
data bus. Another buffer provides access to AI<7:0>, the microprocessor’s address interrupt lines. The 
third buffer provides access to various DCTl 1-EM control signals. These buffers arc directly accessible 
through the 60-pin connector. See Paragraph 6.16 for the names of the specific buffered signals available. 

6.8 PROCESSOR CYCLE DECODING 

There is some decoding logic that takes microprocessor control signals and combines them to direct the 
operation of various chips within the DCT11-EM. Some of these decoded signals are available to you 
through one of the user buffers. See Paragraph 6.16 for the names of these buffered control signals. 

6.9 ADDRESS LATCHING AND RANGE DECODING 

Memory addresses are latched from DAL<15:00> when the microprocessor asserts ERAS L. As shown in 
Figure 6-1, the upper three bits of the latched address are converted (decoded) to signals which enable 
pairs of on-board ROMs or RAMs. 
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Decoded address range signals are also available to your expansion hardware via the 60-pin connector. 
These signals are ARD02 L, ARD03 L, and ARD17 L. Figure 6-2 illustrates the address ranges to which 
these signals correspond. 



> ARD 1 7 


f ARDIX 


NO CHIP ENABLE 
SIGNAL AVAILABLE 


V AR003 


ARO02 


f ARDOl 


ARDOO 


Wft 1 0353 


Figure 6-2 Address Range Decoding 


6.10 PERIPHERAL CHIP ADDRESS DECODING 

The peripheral chip decoding logic is similar in function to the address range decoding logic (see Paragraph 
6.9). The difference is that this logic generates peripheral chip enable signals instead of memory chip 
enable signals. Peripheral chips are enabled according to the addressing scheme shown in Paragraph 6.5. 
The peripheral chip decoding signals are internal to the DCT1 1-EM and are unavailable for expansion 
hardware. 

6.1 1 INTERRUPTS AND TRAPS 

Interrupt vectors are located as shown in Table 6-2. 

Interrupts are encoded and sent to the DCTtl-AA for handling. The DCT1I-AA also handles DMA 
requests and external vector requests via the interrupt logic. 

Some of the interrupt vectors above point to a “null” service routine. That is, they simply point to an RT1 
instruction. These include the power-fail, DLART transmitter, external, and 8251 A transmitter interrupts. 
If you do not write your own service routines and change the interrupt vectors accordingly, these interrupts 
will have no effect. 
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Table 6-2 Interrupt Vector Locations 


Interrupt 

Vector 



Address 

Priority 

Type of Interrupt 



HALT switch and HALT instruction 

000024 

- 

Nonmaskable power fail interrupt (caused by pressing INT switch) 

000060 

4 

DLART receiver (I NT 3) 

000064 

4 

DLART transmitter (INT2) 

000100 

6 

(external interrupt (INTB) 

000104 

6 

Keypad/LF.D scanning (INTA) 

000 120 

5 

8251 A receiver (1NT7) 

000124 

5 

8251 A transmitter (INT6) 

000140 

7 

DLART receiver break (INTF) 


Other vectors include the following. 

Vector Address Description 

000010 Illegal instruction trap 

000014 Breakpoint and trace service 

6.12 TIMING 

Fundamental timing signals are generated by: 

1. A 7.5 MHz crystal oscillator which drives the DCT1 1-AA microprocessor 

2. A 614.4 KHz clock which drives the DLART. 

The 7.5 MHz signal is also divided down to 1.875 MHz to drive the 8251 A auxiliary serial line. These 
signals are unavailable for external use. 

6.13 MISCELLANEOUS CONTROL LOGIC 

There are pieces of logic spread throughout the DCT1 1-EM that generate miscellaneous control signals. 
The only signal that the miscellaneous control logic makes available to you is the signal RDY L, which, 
when asserted, causes a single cycle slip. Note that the installation of the jumper disables the on-board 
generation of RDY L. 

6.14 KEYPAD/LEDS 

The keypad/LEDs combination communicates with the rest of the DCTII-EM through the 8255A 
parallel port peripheral chip (sec Paragraph 6.5.1). Note that the lower four bits of port C arc decoded and 
are used to drive the LED anodes and keypad simultaneously. These lines are asserted sequentially in 
response to the 1NTA interrupt request. 

6.15 HALT AND INT SWITCHES 

The operaton of the HALT and INT switches is explained in Paragraphs 3.9 and 3.10, respectively. To 
summarize, pressing the HALT switch asserts the HALT signal which restarts the keypad monitor and 
unconditionally stops whatever operation was in progress. Pressing the INT switch asserts the PF signal 
which causes a power-fail interrupt. Power-fail interrupts have no effect unless you write a service routine 
(vectored by location 24) to handle the interrupts. 

Both HALT and PF are available to you via the 60-pin expansion connector. 
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6.16 CONNECTORS 

There are four male connectors on the DCTl 1-EM as follows. 


Connector 

Number 
of Pins 

Function 

Jl 

60 

Connector for expansion hardware 

J2 

4 

Power supply connector 

J3 

25 

Auxiliary serial line 

J4 

25 

Console serial line 


J 1 , J3, and J4 are all standard size connectors. J2 is the connector you assembled when you installed the 
DCTl 1-EM. 

The pin assignments of these connectors are listed in Table 6-3. 


Table 6-3 DCTl 1-EM Connector Pin Assignments 
60-Pin Connector for Expansion Hardware (Jl) (see Figure 6-3) 


Pin 

Number 

Signal 

Name 

Description 

1 

ADOO H 

AD<15:00> is the buffered version of DAL<15:00>, the bidirectional mul- 

2 

AD01 H 

tiplexed data/address lines of the DCTU-AA. 

3 

AD02 H 


4 

A DO 3 H 


5 

AD04 H 


6 

A DO 5 H 


7 

AD06 H 


8 

A D07 H 


9 

A DO 8 H 


10 

AD09 H 


1 1 

ADIO H 


12 

ADI 1 H 


13 

ADI2 H 


14 

AD! 3 H 


15 

AD14 H 


16 

AD! 5 H 


17 

AIO H 

Al<7:0> is the buffered version of the DCTl 1-AA’s Al<7:0> address interrupt 

18 

All H 

lines. Outpul only. During DMA transactions, these lines are set to the high 

19 

AI2 H 

impedance state. 

20 

A(3 H 


21 

AI4 H 


22 

AI5 H 


23 

AI6 H 


24 

AI7 H 


25 

GND 


26 

RESET L 

Buffered control signal. Output only. Corresponds to the DCTl 1-AA’s -BCLR 
signal. 

27 

PBC H 

PB<7:0> arc the bidirectional port B lines of the 8255A parallel port chip. 

28 

PB) H 


29 

PB2 H 


30 

PB3 H 


31 

PB4 H 


32 

PB5 H 


33 

PB6 H 


34 

PB7 H 


35 

HALT L 

Asserted when HALT switch is pressed. Open collector. 
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Table 6-3 DCTll-EM Connector Pin Assignments (Cont) 


60-Pin Connector for Expansion Hardware (J 1) {see Figure 6-3) 


Pin 

Signal 


Number 

Name 

Description 

36 

PF L 

Asserted when 1NT switch is pressed. Open collector. 

37 

DMR L 

External DMA request line. Input only. 

38 

INTB L 

External interrupt request line. Input only. 

39 

VEC L 

External vector request line. Input only. 

40 

PI H 

Buffered control signal. Corresponds to the DCT1 l-AA’s PI signal. Output only. 

41 

GND 


42 

ARD02 H 

Decoding signal for the address range 040000-057777. Output only. 

43 

ARD03 H 

Decoding signal for the address range 060000-077777. Output only. 

44 

ARD17 L 

Decoding signal for the address range 160000-177777. Output only. 

45 

IACK L 

Buffered control signal. Interrupt acknowledge. Output only. 

46 

DMO L 

Buffered control signal, DMA acknowledge. Output only. 

47 

SEL1 H 

Buffered control signal. Corresponds to DCT1 l-AA’s SELl signal. Output only. 

48 

SELO H 

Buffered control signal. Corresponds to DCT1 l-AA’s SELO signal. Output only. 

49 

WLB L 

Buffered control signal. Corresponds to DCT1 l-AA’s R/-WLB signal Set to 
high impedance state during DMA. Input or output. 

50 

WHB L 

Buffered control signal. Corresponds to DCT1 l-AA’s R/-WHB signal. Set to 
high impedance state during DMA. Input or output. 

51 

GND 


52 

RAS L 

Buffered control signal. Corresponds to DCTlI-AA’s —RAS signal. Output 
only. 

53 

GND 


54 

CAS L 

Buffered control signal. Corresponds to DCTI l-AA’s —CAS signal. Output only. 

55 

GND 


56 

DBIN L 

Buffered control signal. Read enable line. Output only. 

57 

GND 


58 

COUT H 

Buffered control signal. Corresponds to DCTI l-AA’s COUT signal Output 
only. 

59 

GND 


60 

RDY L 

Causes single cycle slip when asserted. Open collector. 
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Table 6-3 DCT11-EM Connector Pin Assignments (C’ont) 


Power Supply Connector (J2) 


Pin 

Number 

Signal 

Name 

Description 

) 

+ 12VDC 

Power signal 

2 

+ 5VDC 

Power signal 

3 

GND 


4 

— 1 2VDC 

Power signal 


Auxiliary Serial Line Connector (J3) 


Pin 

Number 

Signal 

Name 

Description 

1 

FGND 

Frame ground 

2 

peso 

Serial data out 

3 

PCSI 

Serial data in 

4 

PRTS 

Request to send 

5 

PCTS 

Clear to send 

6 

PDSR 

Data set ready 

7 

GND 

Signal ground 

8 

- 

Not used 

9 

- 

Not used 

10 

- 

Not used 

1 1 

- 

Not used 

12 

- 

Not used 

13 

- 

Not used 

14 

- 

Not used 

15 

- 

Not used 

16 

- 

Not used 

17 

- 

Not used 

18 

- 

Not used 

19 

- 

Not used 

20 

PDTR 

Data terminal ready 

21 

- 

Not used 

22 

- 

Not used 

23 

- 

Not used 

24 

- 

Not used 

25 

- 

Not used 
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Table 6-3 DCT11-EM Connector Pin Assignments (Cont) 


Console Serial Line Connector (J4) 


Pin Signal 

Number Name Description 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

] I 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


FGND Frame ground 

DLSO Serial data out 

DLSI Serial data in 

RTS Request to send (always ON) 

Not used 
Not used 

GND Signal ground 

Not used 
Not used 
Not used 
Not used 
Not used 
Not used 
Not used 
Not used 
Not used 
Not used 
Not used 
Not used 

DTR Data terminal ready (always ON) 

Not used 
Not used 
Not used 
Not used 
Not used 


59 57 55 53 51 49 47 45 43 41 39 37 35 33 31 29 7 7 25 23 21 19 17 15 13 I ' 9 7 5 3 1 
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Figure 6-3 60-Pin Connector Pin Assignments 


6.17 HARDWARE EXPANSION - EXAMPLE 

If you plan to develop and run large programs, one of the first expansion hardware circuits you may want 
to build is a memory module. Figure 6-4 shows a design for a 16 KB module. 

The module responds to addresses 040000 through 077777. The address range decoding signals, ARD02 
H and ARD03 H, are used to enable the module. 

Note that the signal names on connector J1 of the memory module arc in the opposite order as those 
shown on connector J1 of the DCTl 1-EM. This scheme eliminates the need to twist the interconnecting 
cable. 
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T-ll Evaluation Nodule Monitor MACRO VOS 1 00 Sunday 13-ilai — 83 01110 Rase 1 


1 

2 

3 

4 

5 

6 
7 
B 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 


.ENABL LC 

T-ll EVALUATION MODULE MONITOR 


Version 1.0 3.E.G. Hudson* Ma. 


COPYRIGHT (Cl 1932 BY 

DIGITAL f SHIPMENT CORPORATION. MAYNARD? MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND NAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FDR THE USE DR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL, 
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T-ll Evaluation Module Monitor MACRO 005.00 Sunday lJ-Mar-83 04 ! 10 Rase 2 


1 


2 


■TITLE T-ll Evaluation Module Monitor 

3 


.IBENT 

700,001/ 


4 


.SBTTL Definitions 


J 

6 

000000 

R0 

=xo 

TReSisters 

7 

000001 

R1 

=:i 


8 

000002 

R2 

=22 


9 

000003 

R3 

=23 


10 

000004 

R4 

-24 


11 

000005 

R5 

-25 


12 

000004 

SP 

-24 


13 

14 

15 

000007 

PC 

=27 


000024 

PFVEC 

==024 

Jpower fail vectorr called by INT button 

14 

000040 

CONIN 

==040 

5 DLART receiver interrupt vector 

17 

000044 

COROUT 

==044 

>DLART transBitter interrupt vector 

18 

000120 

AUXIN 

==120 

J 8251 receiver interrupt vector 

19 

000124 

AUXOUT 

==124 

18251 transtitter interrupt vector 

20 

000100 

USERIV 

==100 

•uncottiUed interrupt vector 

21 

000104 

LE8IV 

==104 

TIED display interrupt vector 

22 

23 

000140 

CONBRK 

==140 

f DLART break interrupt, vector 

24 

25 

177440 

PtPORA 

==177440 

58255 port A (write only) 

24 

177542 

PtPORI 

==177542 

jport B (read only) available to user 

27 

177442 

PiPWto 

==177442 

(port B (write only) available to user 

28 

177444 

PtPORC 

==177444 

jport C (write only) controls bits 3-0 

29 

177544 

P$PORD 

==177544 

(port C (read only) reads bits 7-4 

30 

31 

32 

177444 

PtCREG 

==177444 

*8255 cottand register (write only) 

177550 

AtRBUF 

==177550 

>8251 receiver data buffer (read only) 

33 

177450 

AIXBOF 

==177450 

>8251 transiitter data buffer (write only) 

34 

177552 

AtSRES 

==177552 

>8251 status register (read only) 

35 

177452 

AtCREG 

==177452 

>8251 contend register (write only) 

34 





37 

177540 

C1RCSR 

==177560 

fDLART receiver cotaand/status register 

38 

177542 

CIRBtiF 

==177562 

>BLART receiver data buffer 

39 

177544 

CIXCSR 

==177544 

>DIART transtitter cotiand/status register 

40 

177544 

CtXBUF 

==177566 

iDLART transtitter data buffer 
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T-ll Evaluation Module Monitor MACRO VOS * OD Sunday 13-Mar-83 04; 10 Pase 3 


Definitions 


1 

2 

7 



♦SBTTL 

Scratchpad 

0 

4 000000 

5 



» ASECT 


6 

006500 

SCRPD1 


6500 

7 





8 

007320 

TBLTDP 

== 

SCRPD1F620 

9 





ID 

006500 

4 UR 

== 

6500 

11 





12 





13 


{console nonitor flag byte 

14 





15 

007324 

LINFLG 


TBLT0P44 

16 

007325 

LASL1H 

— 

LINFLG41 

17 

000001 


F.SSTl 

=001 

18 

000004 


f .NULL 

=004 

19 

000010 


F.SAVX 

=010 

2D 

000020 


F.C0HM 

=020 

21 





22 

007326 

CURC0H 

== 

LASLIN+1 

23 

007327 

LAS COM 

== 

CURCOM+1 

24 

000001 


F.KNEM 

=001 

25 

000002 


F.UALU 

=002 

26 

000004 


FtUNDF 

=004 

27 

000010 


F.USRD 

=010 

28 





29 

007330 

TMPM0B 

== 

LASC0HF1 

30 

007331 

PERM0D 

- 

THPMOD+i 

31 

000002 


F.ABS 

=002 

32 

004000 


F.VT 

=<400*010> 

33 

000100 


F . INST 

=100 

34 





35 

000200 


F.8TTM 

=200 

36 





37 

007332 

EXPFLG 

== 

PERKOB+l 

38 





39 

007333 

LEVEL 

1= 

EXPFL5+1 


locations in hish RAN 


>7000 {button of default console tonitor scratch 

(default synbol table— 66. synbol capacity 
(top of synbol table( 2 words of nane scratch 

iTBLT0P-<66.*6> 


pairs—iust start at even address 

(flads related to parsins of whole lines 

(saved flads fro» previous line 

(line contained STEP contend 

Mine is (functionally) eepty 

iws have saved expr for double paras coanands 

;we are in a consent ( isnore characters 

(current contend f lads 

isaved flass fro* previous contend 

(was an instruction snenonic 

ran undefined synbol or directive 

{expression doesn't contain undefined sanbols 

(was a user defined synbol or label 

icurrent output node flaas 
(penanent output node flads 
(absolute valueS( not synbolic output 
;vt node on or off 
(instruction output 

(if neither ASCII nor instruction then nuneric 
(byte node 

(current expression flads 
(parenthesis level in expression 
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Ml Evaluation Module Monitor MACRO V05.00 Sunday 13-Mar-83 04110 Page 4 
Scratchpad locations in high RAH 


1 

2 

3 

4 

5 

4 
7 

5 
9 

10 

11 

12 

13 

14 

15 
14 
17 


.other variables! 


007334 


ADVADR *= 


LEUEL+1 


idue to the varied uses of this location a 


complete list is in order! 

D0CR! Wien dumping locations in response to a <CR>. the next address 
after that which has been dumped is saved in case the next 
command line reauests another dune. The value of ADVADR need 
only be kept intact between two successive empty cowand lines. 

4. BYTE i J.UCRD, GET INS r subroutines of GET IMS! 

These routines use APVABR as a running copy of the current 
address. The current address, as stored in MtADDR. »ust not 
be changed as successive values are deposited into RAM by a 
single instruction or directive, because this would alter the 
value of the dot (.) symbol (current location reference). 

DOSTMIJuses ADVADR to save R2. which points to the name to be defined. 


18 



J 

while the value to be eauated is parsed. The value saved in 

19 



1 

R2 is an index 

to the name on the left of the eauals sign, if 

20 



1 

the name is one of the predefined symbols or a user symbol that 

21 



} 

has already been defined. 

22 



JTYPREGiuses ADVADR as 

a pointer to the list of registers to be typed, 

23 



?efhd: 

uses ADVADR to 

save the upper search range limit before Parsing 

24 

25 

24 

27 

28 



5 

the value and task parameters. 

007334 

SAVEXP 

== 

ADVAWN2 

.saved expr value for double parameter commands 

007340 

COURT 1 


SA9EXP+2 

.counter for upper level routines 

29 

30 

31 

007341 

CGURT2 

== 

COUNT HI 

.counter for lower level routines 

007342 

MODE 

r= 

C0UNT2+1 

.addressing mode scratch— must be even address 

32 

33 

34 

007343 

OFERAT 

== 

MODEtt 

.save operator here in expressions 

007344 

CNTLC 

== 

0PERAT+1 

iCNTLC<0> set to 1 when console types "C and 
IF.APPL is set. meaning that the 

.currently running program has a "C handler 

35 

34 

37 

38 

39 

40 

007345 

DELIM 

== 

CNTLCH 

ithe .ASCII directive stores the delimiter here 





.now at 7344. bottom of console monitor stack 

41 

42 

43 

44 

007344 

BOTTOM 


DELIM+1 

.console monitor has 38 word stack 
* NOTE t interrupts need up to li stack locations 

007400 

SCRPAD 


B0TT0M+32 

.now at 7400. bottom of keypad monitor scratch 

45 

44 

47 

007442 

STACK 

ss 

SCRPAD+42 

.25 word stack for keypad monitor 

007442 

T8LB0T 

== 

STACK 

.pointer to bottom of symbol table space ir> use 

48 

007444 

MF8251 


STACK 4 2 

.8251 mode flags 

49 

007444 

REPEAT 

r= 

STACK + 4 

.console monitor command line repeat counter 

50 

007470 

BUFFER 

== 

REPEATT2 

596 character console line input buffer 

51 

007430 

BP 

ss 

BUFFER4140 

.buffer back pointer, must be even address 

52 

007431 

FP 

== 

BP+1 

.buffer forward pointer, must follow BP 

53 

007432 

H0STBF 

-- 

FP+1 

.32 character host input buffer 

54 

007472 

HFP 

-- 

H0STBFt40 

.buffer forward pointer 

55 

007473 

KSTFLG 

== 

HFPfl 

ihost flags 

54 

000200 


FtUJAD 

•200 

.1 = taking input from host 

57 

000100 


F.LBST 

=100 

tl = looking for .START to begin loading 
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Scratchpad locations in high RAM 


58 

59 

60 

000001 


F.BYTB 

=001 

il = ignoring gessage frot host (byte bucket) 

007674 

PWRfVS 

-- 

HSTFLG+1 

isave user's power fail vector here 

61 

007676 

KEYRIU 

- 

PURFVST2 

ikeypress service vector 

62 

007700 

KEYPUS 


KEYP1V+2 

isave user's keypress vector here 

63 

007702 

USERVS 

== 

KEYPVSP2 

isave user's interrupt vector here 

64 

007704 

DEBNCE 


USERVS+2 

ikeypad debounce register 

65 

007706 

FLAGSt 

== 

DEBNCEF2 

if 132 bits? defined as follows 

66 

000001 


F . DATA 

=000001 

il = data entry *ode 

67 

000002 


F.CHAN 

=000002 

il = nuneric key pressed after opening location 

68 

000004 


F.ABBR 

=000004 

il = address entry node 

6 ? 

000010 


F.REG 

=000010 

il = register selection node 

70 

000020 


F.BRKS 

=000020 

il = breakpoint selection mode 

71 

000040 


F.FUNC 

=000040 

il = special function selection mode 

72 

000100 


F 4 USER 

=000100 

il = executing user code 

73 

000200 


F.SST 

=000200 

il = single stepping 

74 

000400 


F.BRKA 

=000400 

il = breakpoints active ''installed) 

75 

001000 


F. 8 RKG 

=001000 

il = currently stepping over a breakpoint 

76 

002000 


F.KEYP 

=002000 

il = running console lonitor 

77 

004000 


F.HOST 

=004000 

il = accepting console cowsands fro» both ports 

78 

010000 


F.APPL 

=010000 

il = running program with "C handler 

79 

020000 


FiTBAS 

=020000 

il = print address break point is at 

80 

040000 


F 4 PROP 

=040000 

il = eonitor scratch protection disabled 

81 

82 

83 

100000 


F.PAS1 

=100000 

il = console eonitor PAS51 sode active 

007710 

CONFLG 

-= 

FLAGSH2 

(console line flags* susl be even address 

84 

000002 


F .STOP 

=002 

icontrol S Pressed* execution suspended 

85 

0000 10 


F.CPBO 

=010 

iprosraMable baud rate stored here 

86 

87 

88 

B9 

90 

91 

92 

000020 

000040 

000200 


F.CPE1 

F.CPB2 

F.A64X 

=020 

=040 

=200 

iaux port »ode word bit<G>* selects 16X or 64X 

007711 

AUXFLG 

== 

CONFLG+1 

icopy of what has been written to AICREG 

007712 

SEGBUF 

-- 

AUXFLG+1 

*6 word segoent data buffer for LED displays 

93 

94 

007726 

SPCLBF 

-- 

SEGBUF + 14 

ihigh byte for upper display* low for lower 
il word buffer for special 2 character display 

95 

007730 

TIME 


SPCLFF+2 

Jupper 6 bits count 60 seconds* lower 10 count 

96 

97 

007732 

$R0 

- = 

TIME+2 

ieighthundredths of seconds 
isave user context here 

98 

007734 

1 R 1 

== 

4R0F2 


99 

007736 

*R2 

== 

« 1 F 2 


100 

007740 

*R3 


4R2F2 


101 

007742 

*R4 

== 

♦R3+2 


102 

007744 

tR5 


♦R442 


103 

007746 

4SP 

== 

»R5t2 


104 

007750 

$PC 

r= 

♦SPT2 


105 

007752 

»PS 

== 

SPCF2 


106 

007754 

SWATCH 

-- 

4PST2 

iuatchpoint address 

107 

007756 

SADOR 

== 

♦WATCH+2 

(current address 

108 

007760 

BRKFIL 


4ABDRF2 

(file of four breakpoint addressrcontents pairs 
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Scratchpad locations in hidh RAM 

1 

2 

3 

4 

5 133000 

6 
7 
3 

9 

10 
11 
12 

13 133000 010046 

14 133002 010146 

15 133004 113700 177560 

16 133010 100375 

17 133012 013700 177562 

18 133016 100005 

19 133020 012700 000007 

20 133024 004767 000510 

21 133030 000457 

22 

23 133032 042700 177600 

24 133036 001454 

25 133040 120027 000003 

26 133044 001454 

27 133046 120027 000031 

28 133052 001461 


29 133054 

132737 

000002 

007710 


BITS 

♦F. STOP. MCONFLGi are we waiting for "O’ 

30 133062 

001407 




BED 

34 

ino 

31 133064 

120027 

000021 



CMPB 

R0»#021 

Sis it "O’ 

32 133070 

001345 




BNE 

14 

Jnoi wait for one 

33 133072 

142737 

000002 

007710 


BICB 

♦F.STOPifttCONFLGJclear "S flag 

34 133100 

35 

36 133102 

000433 




BR 

94 

(ignore character r continue 

120027 

000023 


341 

CMPB 

R0.4023 

Sis it "S’ 

37 133106 

001006 




BNE 

44 

I no 

38 133110 

152737 

000002 

007710 


BISB 

♦F.STOPiMCQNFLGisat "S flag to suspend execution 

39 133116 

106427 

000200 



MIPS 

♦200 

iaccept other interrupts while suspended 

40 133122 
4! 

42 133124 

000730 




BR 

14 

iwait for "Q 

120027 

000017 


441 

CMPB 

R0.*0l7 

5 is it "O’ 

43 133130 

001004 




BNE 

84 

ino 

44 133132 

152737 

000001 

007673 


BISB 

♦F . BYTB » BAHSTFLG » turn on host line bate bucket 

45 133140 

46 

47 133142 

000413 




BR 

94 


113701 

007631 


841 

HOVB 

04FP,Rl 

rSet buffer input pointer 

48 133146 

042701 

177400 



BIC 

♦177400»R1 

(Prevent sidn extend 

49 133152 

120127 

000140 



CMPB 

Rli#140 

)is buffer full’ {96 characters) 

50 133156 

103320 




BHIS 

54 

jyes( send <BEll> 

51 133160 

110061 

007470 



NOVB 

RO.BUFFER(Rl) 

!rtO( store character 

52 133164 

53 

54 133170 

105237 

007631 



INCB 

MFP 

iadvance pointer 

012601 



941 

MOV 

(SP)tiRl 

(restore redisters 

55 133172 

012600 




MOV 

(SP)F>R0 


56 133174 

57 

000002 




RTI 


Sand continue 


.SBTTL Console Serial Line Support Routines 
= 133000 


4+ 

LINEIN answers console input interrupts and buffers the incoeind characters* 
I The characters "C> "Q> "Qi "S» and "Y and trapped in this routine. 


LINE1N1 !MOV 

R0t-<SP) 

(preserve soee redisters for scratch 


MOV 

Rlc(SP) 


141 

NOVB 

MC4RCSft(R0 

fread console receiver status redister 


BPL 

14 

iin polled eodej wait for a character 


MOV 

8K4RBUF(R0 

iread console receiver 


BPL 

24 

loo error bits set 

541 

MOV 

♦0O7(RO 

ion error( output <BELL> 


JSR 

PC.CHRC1 



BR 

94 

(ignore character f continue 

241 

BIC 

*177600 (RO 

(dear all but 7 bits 


BEG 

94 

fidnore ASCII nulls 


CMPB 

R0(»003 

iis it "C? 


BEQ 

64 

ides 


CMPB 

R0(4031 

iis it T? 


BEQ 

74 

ises 
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Console Serial Line Support Routines 


58 133174 

032737 

030000 

007704 

44! 

BIT 

4F .APPL4F i TBASiSMFLAGSl istoe on "C? 

5? 133204 

001404 




BEG 

74 

■ yes, not running Program with "C handler 

60 133204 

152737 

000001 

007344 


BISB 

♦l.MCNTLC 

inoi Just set flag for application program 

61 133214 

i't 

000765 




BR 

74 

iand return 

0 i. 

63 133214 

012700 

054534 


74! 

MOV 

♦400»13H136,R0 

rC and "Y terminate execution 

64 133222 

004767 

000302 



JSR 

PC j CHR0UT 

■tyre "Y‘ 

65 133224 

042737 

000300 

007704 


BIC 

♦F.USERPF.SSTiBtFLAGSl iclear user program flags 

66 133234 

000167 

004330 



JMP 

4M0NIT 

i remove breakpoints) enter monitor 


T-ll Evaluation Module Monitor MACRO 005.00 Sunday 13-Mar-83 04110 Fade 6 
Console Serial Line Support Routines 


GETLIN prompts for a line fro» the console, and returns with the line in 
BUFFER and R3 cleared. Upon entry, BP should index the buffer position 
Just beyond the last character previously taken fro* the buffer (if typeahead 
characters are desired). To throw away the typeahead characters, set PF' arid 
FP to zero. 

The characters typed on the console (and any earlier typeahead characters) 
are echoed to the console following the prompt, '> Mote that the ECHO 
routiner which was specialized for use with monitor coamand inputs echoes 
control characters as ’"'dcharacter/ until 3 semicolon is found on the line, 
Control characters to the ridht of a semicolon (i.e. within a ’co&iherif ) are 
echoed invisibly so that the user can echo control seauences to the console 
terminal. 

Uses! BP Index to BUFFER location Just beyond last fetched character 
(which is the location that contains the first character in 
the new line) 


Returns! 


BP Cleared 

R3 Cleared 

BUFFER Locations indexed by entry value of BP throush the end of the 

buffer replace contents of locations at the beginning of the 
buffer 

FP Adjusted to index the new next available location in the buffet 


30 133240 

105037 

007324 

GETLINiiCLRB 

04LINFLG 

♦ 1 

31 133244 

32 

004767 

000200 

JSR 

PC, PURGE 

h 

33 133250 

004767 

000250 

14! JSR 

PCjCRLF 

9 * 

34 133254 

012700 

020076 

MOV 

♦400*0404076, R0 


35 133260 

004767 

000244 

JSR 

PCrCHROUT 


36 133264 

123703 

007631 

24! CMPB 

«FP,R3 

♦ ! 

37 133270 

001775 


BEG 

24 

ft 

38 133272 

004767 

000644 

JSR 

PC, ECHO 

il 

39 133276 

126327 

007467 000015 

CMPB 

BUFFER-1 ( R3) » #015 

40 133304 

001367 


BNE 

24 

ti 

41 133306 

105037 

007324 

CLRB 

P4L1NFLG 

f 1 

42 133312 

005003 


CLR 

R3 

r 

43 133314 

000207 


RTS 

PD 

* 1 


iis last character a <CR>? 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
1£ 

17 

IB 

19 133316 116300 007470 

20 133322 005203 

21 133324 120027 000011 

22 133330 103423 

23 133332 120027 000040 

24 133336 001403 

25 133340 120027 000014 

26 133344 101003 

27 133346 000270 

28 133350 000241 

29 133352 000207 

30 

31 133354 120027 000141 

32 133360 103407 

33 133362 120027 000172 

34 133366 101004 

35 133370 162700 000040 

36 133374 000261 

37 133376 000401 

38 133400 000241 

39 133402 000250 

40 133404 000207 

41 


005.00 Sunday 13-Har-83 04110 Rase 7 


GETCH retrieves characters fro* the input buffer us ms R3 as an index, 

The character is placed in the lower 7 bits of RO. Lower case characters 
are folded to upper case. The N flas is set if the character is a separator 
(spacer horizontal tab. vertical tab. line feed. or for* feed! and the C flas 
is set if the character has beer, folded. Upon entry. R3 tust index a bate 
within the console input buffer (R3 < 140 octal or 96, denial). 


Uses' R3 

Index to next character in console input buffer (PUFFER! 

Returns! 

R0 

Contains character fetched fro* BUFFER in lower 7 bits, 
upper bits cleared 

R3 

Set to previous value t 1 

N.C 

See coaients above 


getch: : 

M0VB 

BUFFER (R3),R0 

}yes» det a character— bit 7 should be clear 


INC 

R3 



CMPB 

R0.4011 

iis it less than <TAB>? 


BL0 

34 

*yes> riot a separator 


CMRB 

R0.4040 

fis it a space 7 


BEG 

24 

iyesi a separator 


CMPB 

R0.4014 

iis it <FF> or lower? 


BHI 

44 

irio. check for lower case 

24! 

SEN 


.flas a separator 


CLC 




RTS 

PC 


44! 

CMPB 

Fi0<tl41 

Iis it lower case 'a'? 


BLO 

34 

ino. don't fold 


CMPB 

R0.4172 

iis it lower case ’z 1 ? 


BHI 

34 

.no. don't fold 


SUB 

4O40.RO 

•fold to upper case 


SEC 


!fled folded character 


BR 

54 


34! 

CLC 


iflas a nor*al character 

54! 

CLN 




RTS 

PC 
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Sunday 13-Mar -83 04110 Fade 8 


H 


■ENABL LSB 


BETLCH recovers the *ost recently Sotten character. 


6 



i Uses! 

R3 Index to location in BUFFER Just beyond character 

7 

o 



f 

returned 

0 

9 



f 

t Returns! 


10 



) 

R3 Foual to previous value 

11 



f 

R0 Contains fetched character in lower 7 bits, upper 

12 



» 

NrC (See header of GETCH routine) 

13 





14 





15 133406 

005303 


getlch::kc 

R3 

16 133410 

000742 


BR 

GETCH 

17 





18 



iGETCHC is like GETCH except it doesn't fold lower case. 

19 133412 

004767 

177700 

GETCHCIIJSR 

PC .GETCH 

20 133416 

103002 


24! BCC 

It 

21 133420 

062700 

000040 

ADD 

4040 (R0 

22 133424 

000207 


It! RTS 

PC 

23 





24 





25 



i+t 


26 



1 GETNXT is 

like GETCH except it doesn't return separators. 

27 



i 


28 



! (See usade 

inforeation of GETCH) 

29 





30 





31 133426 

004767 

177664 

GETNXT !!JSR 

PCt GETCH 

32 133432 

100775 


BHI 

GETNXT 

33 133434 

000207 


RTS 

PC 

34 



.DSABL LSB 

35 





36 





37 



i ++ 


38 



i GETBP places the back pointer in R3 and prevents sidn extension. Thi 

39 



i useful to refetch characters fro* a line (providina BP still indexes 

40 



i bedinnins of the line). 

41 



» 


42 



i Uses! 

BP Index to be transferred to R3 

43 



! 


44 



i Returns! 


45 



> 

R3 Contains value in BP 

46 



i — 


47 





48 133436 

113703 

007630 

GETBP!! MOVB 

BtBP»R3 

4? 133442 

042703 

177400 

BIC 

4177400(R3 

50 133446 

000207 


RTS 

PC 


51 
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Console Serial Lire Support Routines 

1 


2 

m 




3 

f 

PURGE shifts the input buffer to eliainate space below BP; the back pointer. 

4 

\ 

Console input interrupts are blocked while the shift is occurnns, R3> the 

5 

l 


runnind 

pointer; 

is cleared. 

6 

7 

> 

5 

Uses! 

BP 

Index of first location to be Kept in console input buffer 

8 

t 



(Locations below BUFFER+C8P3 are overwritten) 

9 

i 


FP 

Index of first unused location in BUFFER 

10 

} 




11 

f 

Returns! 



12 

i 


BP 

Cleared 

13 

» 


R3 

Cleared 

14 

f 


FP 

Indexes new first unused location in BUFFER 

15 






16 


17 133450 

106746 


PURGE!! KFPS 

-<SP) 

{save priority 

IB 133452 

106427 

000340 


HIPS 

4340 

idisable interrupts teiporarily 

19 133456 

004767 

177754 


JSR 

PCtGETBP 

{Set back pointer 

20 133462 

005000 



CLR 

R0 

!*afce a pointer to the bottoi of the buffer 

21 133464 

120337 

007631 

2i! 

CS>B 

R3tMFP 

!has entire buffer been transferred? 

22 133470 

103006 



BHIS 

11 

{yes 

23 133472 

116360 

007470 

007470 

MflVB 

BUFF£R(R3)t 8UFF£R<R0) {transfer a character 

24 133500 

005200 



INC 

R0 


25 133502 

005203 



INC 

R3 


26 133504 

000767 



BR 

2* 


27 







28 133506 

110037 

007631 

1$! 

NCWB 

R0.MFP 

{fix forward pointer; 

29 133512 

105037 

007630 


CLRB 

0*bp 

iback pointer; 

30 133516 

005003 



CLR 

R3 

(and runnins pointer 

31 133520 

106426 



HTPS 

<SP)+ 

{restore priority 

32 133522 

000207 



RTS 

PC 


33 







34 







35 



m 




36 



! 

CRLF sends 

a carriage return and line feed to the console (and printer) 

37 



! 




38 



! 

Returns! 



39 



i 


R0 Contains sarbade (400 i 15 4 12) 

40 



i— 




41 







42 133524 

012700 

005015 

CRLF! 

! MOV 

M00»012+015;R0 

?<CR>; <LF> 


<3 


A- 1 1 



T-il Evaluation Module Monitor MACRO V05.0C Sunday 13-Har-83 04JI0 Rase 10 
Console Serial Line Support Routines 


3 [ CHROUT outputs the lower byte of RO to the console. and to the aux port 

A I if the printer port bit is set. If the upper byte of RO is non-zero. 

5 . it is also sent to the port(s). CHROl outputs only the lower byte of RO. 


6 

7 




J 

and CHR02 

car. be used to 

output a character to the aux. port only. 

8 




i 

Uses: 

RO Lower byte contains first ASCII character to be output 

9 




j 


Upper byte contains zero or second character to be output 

10 

11 




i 




12 





.ENABL 

LSB 


13 133530 

004767 

000004 


cwtout: ijsr 

PC. CHROl 

.output lower half of RO 

14 133534 

105700 




TSTB 

RO 

!is there a second character? 

15 133533 

16 

17 133540 

001431 




BED 

It 

.no 

105737 

177564 


CHROl !! TSTB 

MCtXCSR 

.check console transiitter status register 

18 133544 

100375 




BPL 

CHROl 

.wait until transiitter ready bit is set 

19 133546 

110037 

177566 



MOV 8 

RO.MCtXBUF 

.then output a character 

20 133552 

000423 




BR 

It 

.no. done 

21 133554 

132737 

000004 

177552 

CHR02 

:: bitb 

F004.R4ASSREG 

.is aux port transiitter eupty? 

22 133562 

001774 




BEQ 

CHR02 

.no. wait until it is 

23 133564 

105737 

177552 



TSTB 

MAiSREG 

iis BSR active? 

24 133570 

000240 




MOP 


.placeholder for above line 

25 133572 

106746 




MFPS 

-ISP) 

.save priority 

26 133574 

106427 

000340 



NTPS 

*340 

.block interrupts while we 

27 133600 

112737 

000047 

177452 


HOVB 

*047,g*AtCREG 

.enable aux port transiitter 

28 133606 

110037 

177450 



MOVB 

RO.OIAtXBUF 

.output a character 

29 133612 

113737 

007711 

177452 


MOVB 

POAUXFLG.OIAtCREG .restore previous aux port couand word 

30 133620 

106426 




MTPS 

<sm 

[restore priority 

31 133622 

000300 



it: 

SWAB 

RO 


32 133624 

000207 




RTS 

PC 


33 





.DSABL 

LSB 
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Console Serial Line Support Routines 

1 

2 .SBTTL General I/O Support Routines 

3 


4 

fH 



5 

t 

ASCOUT outputs the character in R0 to the port(s) if it is not a control 

6 

i 

character. If so. the special seouences '"A* through are sent with 

7 

8 

9 

f 

exceptions <SP>» 

CESDr and <DEL>. 

» 

t 

Uses! RO 

Lower 7 bits contain character to be printed 

10 

» 



11 


Returns! 


12 

5 

RO 

Contains garbage 

13 





14 


15 

133626 

042700 

177600 

ASCOUT! :bic 

4177600 .RO 

iaake RO a 7-bit character 

16 

133632 

120027 

000177 


CMP 8 

RO.I177 

.is it delete? 

17 

133636 

001413 



BEQ 

14 

»aes. twe <DEL> 

18 

133640 

120027 

000040 


CMPB 

R0.4040 

.is it control 1 

19 

133644 

101331 



SKI 

CHROOT 

ino. tape it no rial la 

20 

133646 

001416 



BEQ 

54 

.•ate spaces visible 

21 

133650 

120027 

000033 


CMPB 

R0.4033 

iis it escape 1 

22 

133654 

001422 



BEQ 

34 

iaes. tape (£SC> 

23 

133656 

000300 



SWAB 

RO 

ino. tape "(letter) 

24 

133660 

062700 

040136 


ADD 

4400I100E136.RO 

.take it second character after 

25 

26 
27 

133664 

000721 



BR 

CHROUT 

land tape it 

133666 

012700 

042074 

i$: 

MOV 

44004104+074.RO 

.tape <B 

28 

133672 

004767 

177632 


JSR 

PC.CHROUT 


29 

133676 

012700 

046105 


MOV 

440O4H4+105.R0 

.tape EL 

30 

31 

32 

133702 

000415 



BR 

44 


133704 

012700 

051474 

54! 

MOV 

44004123E074.R0 

.tape <S 

33 

133710 

004767 

177614 


JSR 

PC.CHROUT 


34 

133714 

012700 

037120 


MOV 

44O04076E120.R0 

.tape P> 

35 

133720 

000703 



BR 

CHROUT 


36 

37 

133722 

012700 

042474 

34! 

MOV 

44OO4105EO74.RO 

.tape <E 

38 

133726 

004767 

177576 


JSR 

PC.CHRDUT 


39 

133732 

012700 

043523 


MOV 

440O4103E123.R0 

UaPe SC 

40 

133736 

004767 

177566 

44! 

JSR 

f'C.CHROUT 


41 

133742 

012700 

000076 


MOV 

4076 .RO 

.‘tape > 

42 

133746 

000670 



BR 

CHROUT 



43 
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1 


3 

4 

5 
4 

7 

8 
? 

10 

11 

12 

13 133750 004747 177544 

14 133754 112100 

15 133754 001374 
14 133740 000207 

17 

18 


H 

PRINTA prints an ASCII strina pointed to ba Rl. The strina nust end uith a 
■ blank byte. 

Uses! Rl Points to strina of bytes to be printed 
Returns! 

Rl Points to byte Just beyond first byte in strina containing zero 


.EWABL LSB 

It! JSR PCtCHROl 

PRINTA! IIWVB <R1)+»R0 ;aet a character fro» strina 

BNE It jprint it 

RTS PC 

.0SA8L LSB 
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1 

2 

3 

4 

5 
A 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 133762 004767 000016 

25 133766 012201 

26 133770 001374 

27 133772 000207 

28 

29 

30 133774 012201 

31 133776 004767 000002 

32 134002 012201 

33 

34 134004 004767 000004 

35 134010 004747 009000 

36 

37 134014 005000 

38 134016 005200 

39 134020 162791 003100 

40 134024 103374 

41 134026 005300 

42 134030 062701 003100 

43 134034 004767 000062 

44 134040 005700 

45 134042 001413 

46 134044 020027 000033 

47 134050 103413 

48 134052 001415 

49 134054 020027 000035 

50 134060 001415 

51 134062 062700 000022 

52 134066 000167 177436 

53 

54 134072 012700 000040 

55 134076 000773 

56 

57 134100 062700 000100 


MACRO 005,00 Sunday 13-Har-83 04110 Rase 13 


PRINT outputs a radix-50 string pointed to by R2< The string lust end with 
a blank word. 

PRINTI outputs a sinsle radix-50 triplet in Rl. 

PRINT2 outputs a pair of radix-50 triplets pointed to by R2. No teninator 
is needed. 

PRINT3 outputs the lost significant radix-50 character in Rl and lultiplies 
Rl by 40. (PRINT3 is called 3 tiles by PRINT!, > 


Uses! R2 Points to RAD50 string to be printed (PRINT) 

Points to RAD50 pair of words to be printed (PRIHT2) 
Rl Contains RAD50 triplet to be printed (PKINT1) 
Contains RAD50 character to be printed (PRINT3) 


Returns! 

R2 Points to next word after blank word in RAD50 string (PRINT) 
Points to word after the pair of words printed (PRINTS) 

Rl Contains zero (PRINT. PRIHT1. PRINT2) 

Contains Previous value of Rl> H08 1600, I 40, (PRINT3) 


.ENABL 

ISB 


1*1 JSR 

PC.PRINT1 

.type the triplet 

print:: hov 

(R2)t.Rl 

.Set a triplet 

BNE 

It 

inot the end yet 

RTS 

PC 


.DSABl 

LSB 


print2i:ndu 

(R2H.R1 

iset a triplet 

JSR 

PC. PRINTI 

.type it 

MOV 

(R2)+.R1 

.get another 

printi: :jsr 

PC.PRINT3 

.type the first character 

PRINT4: JSR 

PC.PRINT3 

.and the second 

PRINT3::CIR 

R0 

(divide by successive subtraction 

it: inc 

R0 


SUB 

♦50450.R1 

.try to subtract 1600, 

BCC 

It 

.worked, no borrow 

DEC 

R0 

» fix R0 

ADD 

♦50450 .Rl 

.and Rl 

JSR 

PC.R1X40 

.•ultiply Rl by 40 

TST 

R0 


BEQ 

2t 

.0 leans space 

CMP 

R0 i*033 

(032 leans Z 

BLO 

3t 

iA through Z 

BEQ 

4t 

(033 leans ♦ 

CMP 

R0.*035 

!035 is undefined, but type t 

BEQ 

5t 


APB 

♦022.R0 

(0 through 9 and '»' 

6tt JMP 

CHR0UT 


2t: NOV 

♦040.RO 

(type spate 

BR 

6t 


3tl ADD 

*100. R0 

(A through Z 
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SB 134104 000770 
59 

40 134104 012700 000044 441 

41 134112 000745 

42 

43 134114 012700 000052 51! 

44 134120 000742 


45 

44 

134122 

006301 

R1X40! ! A5L 

R1 

.•ulliply R1 by 8 

67 

134124 

006301 

ASL 

R1 


48 

134124 

004301 

ASL 

R1 


69 

134130 

010146 

MOV 

Rlt-(SP) 

{save 8 X 

70 

134132 

006301 

ASL 

R1 


71 

134134 

006301 

ASL 

R1 

132 X 

72 

134136 

062601 

ADO 

(SPH.R1 

{plus 8 X aakes 40 X 

73 

134140 

000207 

RTS 

PC 


74 







RR 

64 


MOV 

♦044.RO 

{type 5 

BR 

64 


MOV 

♦052. RO 

Hype < 

BR 

44 
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1 

2 

3 

4 

5 

6 

7 

8 
9 
10 
11 
12 

13 

14 

15 

16 
17 


ECHO reads the line buffer as characters are typed in and echoes the* 
to the console (and printer; if selected), Control characters are echoed 
as “(letter! except within cowents. LINflG is used to record cowent status. 

If ECHO encounters A Ri "II; “X, or \BEIETE>; it responds or todifies the line 
buffer accordingly, ECHO besins echoing characters at the running pointer 
(R3) and continues until R3 = FP or a <CR> is found; 

Uses! R3 Index to first character in BUFFER to be echoed 
FF Index to end of data in buffer 

Returns! 

R3 Index to location in BUFFER logically just beyond last echoed 
byte (This teafts R3 returns zero if "U or "X was the last 
character in the buffer; etc.) 


18 


19 134142 

116300 

007470 


ECHO! : 

HOVB 

BUFFER (R3HR0 

rSet character 

20 134146 

120027 

000022 



CHPB 

R0.4022 

Pis it “R? 

21 134152 

001447 




BEQ 

14 

iyesi retype line 

22 134154 

120027 

000030 



CMP8 

R0» #030 

(is it -V 

23 134160 

001002 




8NE 

34 

ino 

24 134162 

012700 

000025 



mow 

♦025 ;R0 

i»3P "X to "U 

25 134166 

120027 

000025 


34! 

CHPB 

R0,4025 

* is it "U? 

26 134172 

001450 




BEQ 

24 

iaes; cancel line 

27 134174 

120027 

000015 



ChPB 

R0,4015 

iis it <CR>? 

28 134200 

001432 




BEQ 

174 

ryes; stop echoing characters 

29 134202 

120027 

000177 



CHPB 

R0»#177 

!is it <MELETE>’ 

30 134206 

001453 




BEQ 

44 

lyes; delete last character 

31 134210 

120027 

000073 



CHPB 

R0;#073 

iis it a seiicolon 

32 134214 

001003 




BNE 

54 

ino 

33 134216 

152737 

000020 

007324 


B1SB 

♦F,C0Hh;8ILINFLG>yesf show we are in a consent 

34 134224 

132737 

000020 

007324 

54! 

BITB 

♦F , COHM ,Ml 1NFLG i a re we in a cowent? 

35 134232 

001006 




BNE 

74 

iyes; echo characters literally 

36 134234 

004767 

177152 



JSR 

F'CiGETCHC 


37 134240 

100404 




BHI 

64 


38 134242 

004767 

177360 


144! 

JSR 

PCtASCOUT 

itype non-printable characters visibly 

39 134246 

40 

41 134250 

000403 




BR 

84 


005203 



74! 

INC 

R3 

i advance running pointer 

42 134252 

004767 

177252 


64! 

JSR 

FCtCHRQUT 

itype non-printable characters as they are 

43 134256 

120337 

007631 


84! 

CHPB 

R3;MFP 

ihave we echoed everything? 

44 134262 

103727 




BL0 

ECHO 

ino; do sone no re 

45 134264 

46 

47 134266 

000207 




RTS 

PC 

ryes; continue 

005203 



174! 

INC 

R3 

istep east <CR; 

48 134270 

49 

50 134272 

000207 




RTS 

PC 

land return 

004767 

000172 


14! 

JSR 

PC; 104 

isote cotton code 

51 134276 

004767 

000210 



JSR 

PC; 154 

iretove "R fro* line 

52 134302 

004767 

177130 



JSR 

PC;GETBP 

Iso back to the beginning 

53 134306 

106427 

000000 



HTPS 

♦000 

itake characters again 

54 134312 

55 

56 134314 

000761 




BR 

84 

iand echo line 

004767 

000150 


24! 

JSR 

PC, 104 

isote cowon code 

57 134320 

004767 

177112 



JSR 

PC.GETBP 

;go back to the boitot of the buffer 
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58 

134324 

110337 

007631 



MOVE 

R3,8*FF 

(indicate buffer eapty 

59 

134330 

106427 

000000 



MIPS 

*000 

Hake characters adain 

60 

134334 

000207 




RTS 

PC 

.wait for new characters 

61 

62 

134336 

106427 

000200 


4 $: 

MTFS 

*200 

(don't take characters while buffer is fixed 

63 

134342 

004767 

000144 



JSR 

PCr 15* 

(reaove (DELETE/ froa line, decreaent FP 

64 

134346 

120337 

007630 



CMPB 

R3,MBP 

!is there anathirid to delete 7 

65 

134352 

001443 




BEG 

9$ 

ino, continue 

66 

134354 

005303 




DEC 

R3 

Iback. up to character to be deleted 

67 

134356 

032767 

004000 

052744 

loot: 

BIT 

♦F.VTjTMPMOD 

)see if video aode 

68 

134364 

001415 




BEG 

200$ 

(branch if not 

69 

134366 

012700 

000010 



MOV 

*10, RO 

(send backspace 

70 

134372 

004767 

177132 



JSR 

PC.CHROUT 


71 

134376 

012700 

000040 



MOV 

*40, RO 

(send space 

72 

134402 

004767 

177122 



JSR 

PCjCHROUT 


73 

134406 

012700 

000010 



MOV 

♦io.ro 

(send backspace 

74 

134412 

004767 

177112 



JSR 

PC.CHROUT 


75 

134416 

000410 




BR 

210$ 

(skip printer *\* 

76 

134420 

012700 

000134 


200*: 

MOV 

*134, RO 

(type 'V 

77 

134424 

004767 

177100 



JSR 

PCrCHROUT 


78 

134430 

116300 

007470 



MOVE 

BUFFER(R3),R0 

(set deleted character 

79 

134434 

004767 

177166 



JSR 

PC.ASCOUT 

(twee it 

80 

134440 

116300 

007470 


2io$: 

MOVE 

BUFFER(R3),R0 

(check if we deleted a '(" 

B1 

134444 

120027 

000073 



CMPE 

R0,*073 


82 

134450 

001002 




BNE 

13$ 


B3 

134452 

105037 

007324 



CLUB 

e*LIMFLG 

(yes, so we aren't in a consent anymore 

04 

134456 

004767 

000030 


13*: 

JSR 

PC, 15$ 

(reiove deleted character f roi buffer 

85 

134462 

106427 

000000 


9$: 

MTPS 

*000 

(take characters adain 

86 

134466 

000673 




BR 

8$ 

(echo rest of line 

87 

88 

134470 

106427 

000200 


lot: 

MTPS 

*200 

(don't take characters for a while 

89 

134474 

004767 

177126 



JSR 

PCrASCOUT 

iecho the special character 

90 

134500 

004767 

177020 



JSR 

PCfCRLF 

(start a new line 

91 

134504 

105037 

007324 



CLRB 

8*LINFLG 

(initialize flads 

92 

07 

134510 

000207 




RTS 

PC 


94 

134512 

110300 



is$: 

MOVE 

R3.R0 

(Set a scratch copy of runnind pointer 

95 

134514 

116060 

007471 

007470 

16$: 

MOVE 

BUFFER! KRO),: 

BUFFER(RO) (reaovO 1 character froa buffer 

96 

134522 

005200 




INC 

RO 


97 

134524 

120037 

007631 



CMPE 

R0,8*FP 

(is that everythin*? 

98 

134530 

103771 




BIO 

16$ 

(no, do tore 

99 

134532 

105337 

007631 



DECS 

MFF' 

(fix FP 

100 

134536 

000207 




RTS 

PC 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 134540 

12 134542 

13 134544 

14 134550 

15 134556 

16 134560 

17 134564 

18 134566 

19 134572 

20 134574 
23 134600 

22 134602 

23 134646 

24 134610 

25 134614 

26 134620 

27 134624 

28 134626 

29 134632 

30 134636 

31 134642 

32 134644 

33 134652 

34 134654 

35 134660 

36 134664 

37 134670 

38 134676 

39 

40 134700 

41 134704 

42 134710 

43 134714 

44 134722 

45 134726 

46 134732 

47 134736 

48 134740 

49 134742 

50 


. SBTTL Host Line Support Routines 


+4 

HDSTIN answers aux. port receiver interrupts and buffers the incooir.S 
characters in H0STPF (up to 32 characters). “P. "Ci ~S> and "Y are isnored 
cooir.S fro» this port. When the buffer becot.es half-full (16 characters), 
a "S is sent to the host. 


010046 



hdstin;: mov 

RO.-(SP) 

.preserve sone registers for scratch 

010146 




MOV 

RI.-(SP) 


113700 

177550 



MOVC 

84A4RBUE.R0 

.Set the character, reset interrupt 

132737 

000060 

177552 


BITS 

4060.84A4SREG 

IfraiinS or overrun error? 

001050 




SHE 

34 

(yes. beer console, and isr.ore character 

042700 

177600 



BIC 

4177600.R0 

.clear all but 7 bits 

001464 




BED 

14 

iiSnore ASCII nulls 

120027 

000003 



CMP6 

RO p 4003 

iiSnore "C 

001453 




8E0 

24 


120027 

000031 



CHPB 

R0.4O31 

.and "Y 

001450 




BEO 

24 


120027 

000023 



CMPB 

RO. #023 

land "S so that host line traps the sate chars 

001445 




BED 

24 

.as console line, even thouSh isnored 

113701 

007672 



MOVB 

B4HFP.R1 

iSet the host buffer input pointer 

042701 

177400 



BIC 

4177400.R1 

(prevent sisn extend 

120127 

000040 



CMPB 

R1.440 

(is buffer full? 

103036 




BHIS 

24 

(yes. beep the console, isr.ore error 

110061 

007632 



H0VB 

RO.HOSTBF(Rl) 

(no. store character 

105237 

007672 



INCB 

84HFF 

(advance the pointer 

120127 

000020 



CMPB 

R1.420 

(is buffer half full? 

103435 




BL0 

14 

(no. return 

132737 

000002 

007673 


BITS 

4F.ST0P.84HSTFtG.have we ai reads sent 'S to host? 

001031 




BNE 

14 

(yes. return 

106466 

000006 



HTPS 

6(SF> 

(restore priority in case another char cooes in 

012700 

000023 



MOV 

4023.R0 

(send ”S to host 

004767 

176664 



JSR 

PC.CHR02 


152737 

000002 

007673 


BISB 

4F.ST0P.84HSTFLGishow we have done so 

000417 




BR 

14 


113701 

007711 


34! 

MOVB 

B4AUXFIG.R1 

(Set saved copy of A4CREG 

052701 

000020 



BIS 

I20.R1 

(add the error reset bit 

110137 

177452 



MOVB 

R1.84A4CREG 

(reset errors 

113737 

007711 

177452 


MOVB 

8IAUXFLG.84A1CREG (restore to nor»al 

012700 

000007 


24! 

MOV 

4007.RO 

(beep the console on error 

106466 

000006 



MIPS 

6(SP) 

(restore priority in case another char co*es in 

004767 

176602 



JSR 

PC.CHR01 


012601 



14! 

MOV 

(SP1+.R1 

(restore registers 

012600 




MOV 

(SPJ4.R0 


000002 




RTI 
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1 

2 

3 

4 

5 

6 

7 

8 
? 

10 

11 

12 

13 

14 

15 

16 
17 


HGETCH Sets a character frot the host input buffer and shifts the buffer down 
one character. If the buffer is reduced fro* 16 or tore characters to Just 
four> a "Q is sent to the host. Do not call this routine if no characters 
are available in H05TBF (i.e. HFP = 0), 

Uses! HFP Index to next available location in HOSTBF 

F.STOP Status flag -1 if a '5 has been sent to the host 

Returns! 

R1 Lower bate contains the first character in HOSTBF ? upper byte 
contains sidn extension of bit 7 

HFP Decre»ented to index new next available location in HOSTBF 
F.STOP Cleared if ~Q was sent 
R0 Contains sarbade 


18 

19 134744 

005001 



HGETCH! !CLR 

ft! 


20 134746 

113746 

007632 



ftQVB 

MH0ST6F.- 

(SP) (save the first character in buffer 

21 134752 

005201 



It! 

INC 

R1 


22 134754 

120137 

007672 



CMPB 

RliftIHFP 

(are we too dose for co»fart? 

23 134760 

103004 




BHIS 

31 

Sues, disable interrupts before doind this one 

24 134762 

116161 

007632 

007631 


H0VB 

HOSTBF <R1 ) 

iHOSTBF-KRl) .shift down one character 

25 134770 

26 

27 134772 

000770 




BR 

It 

ido entire buffer up to one less than HFP 

106746 



3t! 

MFPS 

-<SP) 

.save priority 

28 134774 

106427 

000340 



HTPS 

*140 

(disable interrupts to prevent screwups 

29 135000 

120137 

007672 


4t! 

CMPB 

RliMHFP 

.are we really done? 

30 135004 

103005 




BHIS 

5t 

Jyesr all characters transferred 

31 135006 

116161 

007632 

007631 


H0VB 

HOSTBF C R1 > »H0STBF-1 ( R 1 ) (shift down one character 

32 135014 

005201 




INC 

R1 


33 135016 

34 

35 135020 

000770 




BR 

4t 


105337 

007672 


st: 

DECS 

MHFP 

iadJust buffer input pointer 

36 135024 

005000 




CLR 

RO 


37 135026 

123727 

007672 

000004 


CHPB 

?*HFP»I4 

.have we reduced to Just four characters? 

38 135034 

101006 




BHI 

2t 

.no 

39 135036 

132737 

000002 

007673 


BIT? 

IF.STGP.8iHSTFlG.and was "S sent? 

40 135044 

001402 




BEQ 

21 

ino 

41 135046 

012700 

000021 



MOV 

♦O21.R0 

.put "G in RO 

42 135052 

106426 



2$: 

HTPS 

(SP)+ 

.restore priority 

43 135054 

112601 




MOVE 

(SP)t.Rl 

! recover character 

44 135056 

005700 




TST 

RO 

Jdid we decide to send "Q 7 

45 135060 

001405 




BEQ 

6t 

ino 

46 135062 

004767 

176466 



JSR 

PC.CHR02 

.yes. send "G to host 

47 135066 

48 

49 135074 

142737 

000002 

007673 


BICB 

♦F.STQP.MHSTFLGishow we have done so 

000207 



6t: 

RTS 

PC 
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1 


2 

3 

4 

5 
4 

7 

8 
9 

10 

11 

12 

13 

14 

15 


.SBTTl I/D Initialization and LED Driver 


IOINIT asserts the RESET L line on the boardi thereby clearing the 
configuration of the peripheral chips. It then initializes the peripheral 
chips to an idle state. SETAX2 configures the aux. port to operate with 
a 16X clock. so that its baud rate will be eou3l to that of the consol? port. 
The RS-232 control output signals are left deasserted. and the aux. port 
receiver and transmitter are left disabled. SETAXI is like SETAX2. except 
that the clock divisor of the aux. port is set to 14 if RO = 0 upon entry, 
or 44 if R0 = 1. A 44X clock means that the aux. port baud rate will be 
one fourth of the console port baud rate. 


14 135074 

000005 



IOINIT: : RESET 


.disable interrtups 

17 135100 

112737 

000212 

177444 


MQVB 

♦212.MPICREG 

i configure 8255 with port B as input 

18 135104 

112737 

000010 

177444 


N0VB 

♦OlO.HPtf'ORC 

.disable LED display 

19 135114 

105037 

177540 



CLRB 

etCtRCSR 

jdisable DLART receiver 

20 135120 

105037 

177544 



CLRF 

etctxcsR 

idisable DLART transmitter 

21 135124 

005000 



SETAX2! CLR 

R0 

.indicate 14X clock for aux port 

22 135124 

112737 

000200 

177452 

SETAXi: MOVE 

*200 >M AtCREG 

isend a harmless made word to make sure next 

23 







.word is interpreted as a control word so that 

24 135134 

112737 

000100 

177452 


MOVE 

tlOO.MAtCREG 

♦this control word puts us back to mode load 

25 135142 

152737 

000002 

007444 


BISD 

♦2.8IMF8251 

imake sure baude rates will match 

24 135150 

043700 

007444 



A0I< 

8*MFB251.R0 

iadd in mode byte incase user has changed anything 

27 135154 

110037 

177452 



HGVB 

R0.MA4CREG 

♦now initialize modes 

28 135140 

112737 

000020 

177452 


M0VB 

*020.8*AtCREG 

.reset error flags, disable 8251 

29 135144 

30 

31 

32 

000207 



;++ 

RTS 

PC 


33 




i 

SETAUX reconfigures the aux. port to operate with a 14X clock if bit ? of 

34 




f 

CONFIG = 

0. or with a 44X clock if bit 7 of C0NFLG = 1. The au;;. port 

35 




i 

receiver and transmitter are left disabled, but the RS-232 control signals 

34 




J 

reauest-to-send and data-terminal-ready are asserted. A copy of the command 

37 




t 

byte sent to the aux. port 

is saved in AUXFLG for future reference, since 

38 

39 




f 

AtCREG is a write-only location. 

40 

41 135170 

005000 



setaux::clr 

R0 


42 135172 

105737 

007710 



TSTB 

MCONFLG 

r is 44X clock currently selected? 

43 135174 

100001 




BPL 

It 

.no. 14X clock 

44 135200 

005200 




INC 

RO 


45 135202 

004747 

177720 


it: 

JSR 

PC. SETAXI 

.set aux port baud rate, disable 

44 135204 

112737 

000042 

177452 


M0VB 

♦042.MA4CREG 

.command 8251 to assert RTS. DTR. and disable 

47 135214 

112737 

000042 

007711 


MOM 

*042.g*AUXFLG 

.save a cops since A4CREG is write only 

48 135222 

000207 




RTS 

PC 



49 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


IOVECT initializes the interrupt vectors at locations 60. 64, 70. 74, . 

130» and 134 to point to an RTI instruction with priority 7, It then attaches 
interrupt service routines for console break, invalid instruction, breakpoint, 
and LED display refresh. The power fail vector is also attached to an RTI 
instruction, with priority 6. The LED display hardware and both serial ports 
are disabled. 


11 135224 




iovect:: 



12 135224 

012700 

000060 


MOV 

♦06Q.R0 

Unitialize I/O vectors and disable interrupt 

13 135230 

012701 

000014 


MOV 

♦12..R1 

♦ IS coded priority vectors (2 not used) 

14 135234 

012720 

135676 


1*1 MOV 

**NULLI»(ROH 

j set address eletent to null service routine 

15 135240 

012720 

000340 


MOV 

♦340, (ROH 

iset priority level to 7 

Id 135244 

077105 



SOB 

Rlil* 


17 135246 

012720 

137114 


MOV 

♦BREAK. (ROIL 

iconnect console break routine 

18 135252 

012720 

000340 


MOV 

♦340. (ROM 

.priority 7 for console break 

1? 135256 

012700 

000010 


MOV 

♦010. RO 


20 135262 

012720 

137334 


MOV 

♦ITRAP. (R0)+ 

iconnect invalid instruction trap 

21 135266 

012720 

000340 


MOV 

♦340, (ROH 


22 135272 

012720 

137174 


MOV 

♦BRKPMROH 

iconnect breakpoint trap 

23 135276 

012720 

000340 


MOV 

♦340, (ROH 


24 135302 

012737 

135344 

000104 

MOV 

♦nlSPLA.MLEDIV 

iconnect LED display routine 

25 135310 

005037 

007676 


CLR 

MKEYPIV 

idisconnect keypress service vector 

26 




.now disable interrupt hardware for ports 

27 135314 

112737 

00*010 

177444 

MOVE 

♦OlO.MPiPORC 

idisable LED display 

28 135322 

142737 

000100 

177560 

BICB 

♦100,84«RCSR 

idisable console receiver 

29 135330 

142737 

000100 

177564 

BICB 

♦ 100.MC1XCSR 

■disable console transmitter 

30 135336 

105037 

177452 


CLRE 

RtAtCREG 

idisable auxiliary receiver and transmitter 

31 135342 

000207 



RTS 

PC 



32 
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1 

2 

3 

4 

5 

6 

7 

8 
9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 

135344 

20 

135350 

21 

135352 

22 

135354 

23 

135356 

24 

135362 

25 

135364 

26 

135170 

27 

135372 

28 

135400 

29 

135406 

30 

135412 

31 

135414 

32 

135420 

33 

135422 

34 


35 

135426 

36 

135432 

37 

135436 

38 

135440 

3? 

135444 

40 

135450 

41 

135452 

42 

135454 

43 

135462 

44 

135464 

45 

135470 

46 

135474 

47 

135476 

48 

135502 

49 

135506 

50 

135510 

51 

135512 

52 

135514 

53 

135516 

54 

135524 

55 

135526 

56 

135532 

57 

135534 


•ENABL USB 
H 

DISPLA is the LED refresh interrupt service routine. It multiplexes the 
contents of SEG8UF to the LEDs through parallel port At and checks if a 
keypad key has been pressed. If a key has been pressed and the value in 
location KETPIV is not zerop then control will be transferred to the routine 
at CKEYFIV] for interrupt driven keypad input. The keypress routine at 
[KEYPIV1 oust restore R2» Rip and RO fro* the stack (in that order) before 
executing an RTI. Note that if the contents of SFCLEP are nonzero p 3 flashing 
display of * xx will appear in the LEDs instead of the contents Df SEGPUF. 
Error' 

DISPLA also counts the number of times it has been called (which is determined 
by the hardware to be SOD times per secondp when display refresh is enabled) 
in the location TIME. The lower 10 bits of TINE count 0 through 799. p and the 
upper six bits count 0 through 59. seconds. 


005237 

007730 


displa: :inc 

84TINE 

(keep a count of SOOths of seconds in TINE 

010046 




NOD 

ROt-(SP) 

ipreserve registers 

010144 




NOV 

RIp-(SP) 


010246 




MOV 

R2p-(SP) 


013700 

007730 



NOV 

MTIMEpRO 

(prepare to check for overflow of 800ths 

005100 




CON 

RO 


032700 

001440 



BIT 

I001440pR0 


001016 




BNE 

It 

ino overflow 

042737 

001777 

007730 


BID 

4001 777 » 6*T IME 

Soverflowp so clear SOOths 

062737 

002000 

007730 


ADD 

#002000 t 0# TIHE 

land add 1 second 

013700 

007730 



H0V 

84TIHE.R0 

(check if overflow past 60 seconds 

005100 




CON 

RO 


032700 

170000 



BIT 

»17OOO0pRO 


001002 




BNE 

It 

.no overflow of seconds 

005037 

007730 



CLR 

etTira 

pyesp so clear the whole thing 

013700 

007730 


it: 

NOV 

eiTIHEpRO 


042700 

177770 



BIC 

♦177770*R0 

(strip RO to make it a multiplex address 

006300 




ASL 

RO 

(make it a word index 

016001 

007712 



N0V 

SEGBUF(RO)pRl 

(set segment data for this digit pair 

005737 

007726 



TST 

MSPCLBF 

(is there a special error display’ 

001422 




BEQ 

3t 

ino 

005001 




CLR 

fil 


032737 

001000 

007730 


BIT 

♦OOIOOOpMTIHE 

(true for approx. 1/3 of each second 

001015 




BNE 

3t 

(flashing error message i no less 

016001 

135754 



NOV 

£RRSEG(R0)pR1 

(Set segment data for * Error' 

132700 

000004 



BITB 

4004 tRO 

(is this digit 2 or 3? 

001410 




BEQ 

3t 

(nop so no overlay on upper display 

013702 

007726 



H0V 

S4SPCLBF pR2 

(get overlay characters 

132700 

000002 



BITB 

*002. RO 

(is this digit 3? 

001001 




BNE 

4t 

(digit 3 character is in upper byte 

000302 




SUAB 

R2 

(swap for digit 2 

105002 



41! 

CLRB 

R2 

(save only upper display character 

060201 




ADD 

R2pR1 

(combine upper and lower display characters 

112737 

000010 

177444 

3t; 

NGVB 

40i0t?4PtPORC 

(turn off display# enable upper display latch 

000301 




SUAB 

R1 

(get upper display data in lower byte 

110137 

177440 



H0VB 

R1pP#P*P0RA 

(output upper display data 

000301 




SUAB 

R1 

(back to lower display data 

112737 

000007 

177444 


H0VB 

♦007 r RtPtPORC 

(display still off# but upper latch closed 
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58 135542 

110137 

177440 


MOVB 

R1»8*P4F0RA 

(output lower display data 

59 135546 

010001 



MOV 

R0.R1 


60 135550 

006201 



ASR 

R1 

riultiplex disit address (byte index) 

61 135552 

110137 

177444 


MOW 

R1.MP4P0RC 

(turn on display 

62 135556 

000240 



MOP 


(now do keypad input... 

63 135560 

113702 

177544 


MOVB 

8JP4P0RB.R2 

.keypad return lines in bits 4 to 7 

64 135564 

042702 

177417 


BIC 

♦ 17741? r R2 

(clean up keypad data 

65 135570 

060002 



ADD 

R0.R2 

(coibine index arid return data 

66 135572 

013701 

007704 


MOV 

84DEBNCE.R1 

(Set a scratch copy of debounce state reSister 

67 135576 

001413 



8EQ 

54 

(not debouncins a key. take a new une 

68 135600 

074201 



XOR 

R2.R1 


69 135602 

001420 



BEQ 

64 

(total latch, take it as a keypress 

70 135604 

032701 

000016 


BIT 

♦000016 » R1 

(coipare lultiplex address field 

71 135610 

001027 



BNE 

24 

(not the sale, so iSnore it 

72 135612 

032701 

000360 


BIT 

♦000360. R1 

(coipare return line field 

73 135416 

001424 



BEQ 

24 

(sane key held, so iSnore it 

74 135620 

005037 

007704 


CLR 

84DEBNCE 

(no lonSer sale key pressed, so reset state 

75 135624 

76 

000421 



BR 

24 


77 135624 

004747 

000046 

54! 

JSR 

PC. 74 

(convert positional bit to nuiber 

78 135432 

005701 



TST 

R1 

(is this a valid key depression? 

79 135634 

100415 



DM I 

24 

(no. so iSnore it 

80 135636 

010237 

007704 


MOV 

R2.MBEBNCE 

(yes. take it and wait for confinition 

81 135642 

82 

83 135644 

000412 



BR 

24 


052737 

100000 007704 

6$! 

BIS 

♦lOOOOO.MDEBNCEiaake sure we Set only one keypress per key 

84 135652 

005737 

007476 


TST 

MKEYPIV 

(do we have an active vector? 

85 135656 

001404 



BEQ 

24 

(no. discard keypress 

86 135660 

004747 

000014 


JSR 

PC .74 

(Set a useful key nunber in R1 

87 135644 

88 

B9 135670 

000177 

052006 


JMP 

BKEYPIV 

(pass it to attached service routine 

012602 


2$: 

MOV 

(SPH.R2 

(service routine at 8KEYPIV should also restore 

90 135672 

012601 



MOV 

(SPM.Rl 

(the reSisters in this tanner 

91 135474 

012600 



MOV 

(SPH.RO 


92 135676 

93 

94 135700 

000002 


4NULLII 

i'RTI 



010200 


7»: 

MOV 

R2.R0 

(take a scratch copy 

95 135702 

000300 



SWAB 

RO 

(love key data to upper byte 

96 135704 

042700 

007777 


BIC 

*007777. RO 

(keep only return line data 

97 135710 

012701 

000004 


MOV 

♦4.R1 

(shift out 4 bits tax 

98 135714 

006300 


841 

ASL 

RO 

(shift out a bit. look for 3 one 

99 135716 

103013 



BCC 

94 

(didn't find it 

100 135720 

001013 



BNE 

104 

(tore than one true bit— invalid data 

101 135722 

005301 



DEC 

R1 

tRl is now 3. 2. 1. or Q 

102 135724 

004302 



ASL 

R2 

(least two bits are 0 

103 135726 

060201 



ADD 

R2.R1 

(coibine nultiplex address and positional count 

104 135730 

042701 

177740 


BIC 

I177740.R1 

(clean up key code 

105 135734 

004202 



ASR 

R2 

(restore R2 

106 135734 

010200 


114! 

MOV 

R2.R0 


107 135740 

042700 

177761 


BIC 

*177761. RO 

(restore RO 

108 135744 

109 

000207 



RTS 

PC 


110 135746 

077116 


941 

SOB 

R1.84 

(keep searchins 

111 135750 

012701 

177777 

1041 

MOV 

♦177777.R1 

(indicate invalid data 

112 135754 

000770 



BR 

114 

(restore and exit 

113 




•DSABL 

LSB 


114 
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115 135754 000120 000134 000120 ERRSEG! .WORD 120,134,120 Jr, o, r 

116 135764 000120 000171 000000 .UORD 120.171,000 Jr, £• space 


T-ll Evaluation Module Monitor MACRO 005. 00 
1/0 Initialization and LED Driver 


Sunday 13-Mar-83 04110 Fade 20 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IB 
19 


H 


•SBTTL LED Display Support Routines 


DSPD1G takes a hex nuiber in the lower 4 bits of RO and displays the 
corresponding seswent pattern on the LED disit indexed by Rl. R1 - 0 
to index the rightmost lower LED disit, = 1 to index the rightmost upper 
LED disit, ..., = 13 to index the lefteost upper LED disit. Returns Rl 
increwented by 2 to index the next disit to the left on the sane display 
row. 


Uses! R0 
Rl 


Returns! 


RO 

Rl 


Hex value to be displayed 

Index to LED disit on which to display it 


Previous value with bits 15. thrauSh 4 cleared 
Previous value + 2 


20 135772 

042700 

177760 


dspdig::bic 

*177760, R0 

tranSe-liiit RO 

21 135776 

020127 

000013 


CMP 

Rl, *000013 

iaaxitu* value for disit index 

22 136002 

101004 



BHI 

1* 

»out-of- range, so isnore call 

23 136004 

116061 

136016 

007712 

MOW 

HEXSEG(RO) iSEGBUF (Rl ) idisplay disit 

24 136012 

005721 



TST 

(R1H 

Jindex next disit of sale display 

25 136014 

000207 



it! RTS 

PC 


26 







27 136016 

077 

006 

133 

HEXSEG! ! , BYTE 

077,006,133,117 

JO, 1, 2, 3 

136021 

117 






28 136022 

144 

155 

175 

• BYTE 

146,155,175,007 

M, 5, 6, 7 

136025 

007 






29 134026 

177 

157 

147 

.BYTE 

177,157,147,174 

58, 9, A, b 

136031 

174 






30 136032 

071 

134 

171 

.BYTE 

071,136,171,161 

iC, d, E, F 

136035 

141 






31 




-EVEN 




32 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 136030 

14 136042 

15 

16 136044 

17 

18 136050 

19 136052 

20 136054 

21 136060 

22 136062 

23 136066 

24 136072 

25 136074 

26 136076 

27 136100 

28 136102 

29 136104 

30 136106 

31 136110 

32 

33 

34 


DSPUNH and DSPLMM take full words in R2 and write octal nuebers to the upper 
and lower LED displays* respectively. 




; uses: 

R2 Octal 

value to be displayed 



9 

f Returns' 





} 

RO Contains darbade 



i 

R1 Contains darbsde 

012701 

000001 

DSPUMM1 ! MOV 

tliRl 

linden upper display 

000402 


BR 

DSPNUH 


012701 

000000 

dsplmm: :mov 

tOiRl 

iindex lower display 

010246 


bspnun: nov 

K2,-(SP) 

(preserve R2 

010346 


NOV 

R3i-(SP) 

(set a scratch redister 

012703 

000006 

NOV 

♦6»R3 

(count 6 did its 

010200 


it: hov 

R2.R0 

iiove octal didit to RO 

042700 

177770 

BIC 

♦1 77770 iRO 

(eake sure it's octal 

004767 

177700 

JSR 

PCiDSPDIG 

(display didit 

000241 


CLC 



006002 


ROR 

R2 

leave to next octal didit 

006202 


ASR 

R2 


006202 


ASR 

R2 


077312 


SOB 

RSrlt 

(do five didits 

012603 


HOV 

(SP)+iR3 


012602 


NOV 

(SPH.R2 


000207 


RTS 

PC 
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1 




iH 



2 




t 

BSPNAH is 

a routine to display naaes of registers, etc. on upper display. 

3 




l 

R2 points to the aessaSe to be displaced. The aessage should be a steins 

4 




i 

of 6 bytes corresponding to the seSaent patterns for each LEO digit, starting 

5 




t 

uith the 

ridhtaost digit. 

6 

7 

o 




f 

9 

Uses! 

R2 Pointer to string of sedaent patterns 

0 

9 




f 

f 

Returns! 


10 




9 


R1 Contains garbage 

11 




i 


RO Contains garbage 

12 




# — 



13 







14 133112 

012701 

000001 


dspnan;:ngv 

tl,Rl .index upper display 

15 (36116 

010246 




MOV 

R2.-1SP) .preserve aessaSe index 

16 136120 

006302 




ASL 

R2 iaultiplu it by 6 

17 136122 

010200 




MOV 

R2.R0 

18 136124 

006302 




ASL 

R2 

19 136126 

060002 




ADO 

R0.R2 

20 136130 

012700 

000006 



NOV 

t6.R0 .character count 

21 136134 

116261 

136154 

007712 

it: 

MOVB 

NAMTBL(R2).SEGBUF(R1) Saove sedaent data to LED buffer 

22 136142 

005721 




TST 

(RIM- .index next LED disit 

23 136144 

005202 




INC 

R2 .index next character 

24 136146 

077006 




SOB 

R0.lt .do six characters 

25 136150 

012602 




MOV 

(SPH.R2 .restore R2 

26 136152 

000207 




RTS 

F'C 

27 







28 136154 

000 

000 

077 

NAMTBLii.BYTE 

0,0.077,120.0.0 !' rO * 

136157 

120 

000 

000 




29 136162 

000 

000 

006 


.BYTE 

0,0,006.120.0,0 !■ rl ' 

136165 

120 

000 

000 




30 136170 

000 

000 

133 


.BYTE 

0,0.133,120.0,0 S' r2 * 

136173 

120 

000 

000 




31 136176 

000 

000 

117 


.BYTE 

0,0.117,120,0,0 S' r3 1 

13620! 

120 

000 

000 




32 136204 

000 

000 

146 


.BYTE 

0,0,146,120.0,0 S' r4 1 

136207 

120 

000 

000 




33 136212 

000 

000 

155 


• BYTE 

0,0,155,120,0,0 !• r5 ' 

136215 

120 

000 

000 




34 136220 

000 

ooo 

163 


• BYTE 

0,0,163,155,0,0 !• SF ’ 

136223 

155 

000 

000 




35 136226 

000 

000 

071 


.BYTE 

0,0,071,163,0,0 i * PC * 

136231 

163 

000 

000 




36 136234 

000 

000 

155 


.BYTE 

0,0,155,163,0,0 i‘ PS ' 

136237 

163 

000 

000 




37 136242 

120 

136 

167 


.BYTE 

120,136,167 

38 136245 

170 

124 

163 


.BYTE 

170,124,163 i'FntAdr’ 

39 136250 

000 

120 

136 


.BYTE 

000,120,136 

40 136253 

136 

167 

000 


.BYTE 

136,167,000 S' Addr ‘ 

41 136256 

000 

075 

171 


.BYTE 

000,075,171 

42 136261 

120 

OOO 

000 


•BYTE 

120,000,000 S’ rEG ' 

43 136264 

006 

170 

124 


.BYTE 

006,170,124 

44 136267 

163 

120 

174 


.BYTE 

163,120,174 f brPr.tr 

45 136272 

133 

170 

124 


.BYTE 

133,170,124 

46 136275 

163 

120 

174 


.BYTE 

163,120,174 S*brPnl2' 

47 136300 

117 

170 

124 


• BYTE 

117,170,124 

48 136303 

163 

120 

174 


.BYTE 

163.120-174 ) 'brPnt3' 
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49 134306 

144 

170 

124 

.BYTE 

146,170,124 


50 134311 

143 

120 

174 

.BYTE 

163(120)174 

i'brF , nt4 1 

51 136314 

OOO 

130 

124 

.BYTE 

000.130(124 


52 134317 

034 

161 

000 

.BYTE 

034.141.000 

i' Func * 

53 134322 

060 

134 

155 

.BYTE 

060,134,155 


54 136325 

124 

134 

071 

.BYTE 

124,134,071 

>”Con$al* 

55 134330 

170 

120 

134 

.BYTE 

170,120,134 


54 134333 

163 

200 

167 

.BYTE 

163,200,167 

1'A.Port' 


57 .EVEN 
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BLNKLO and BLHKHI are routines to erase the sequent data in the lower and 
upper LED bufferst respectively. Returns SarbaSe in R0 and fil. 


A 136334 

012701 

000000 

blnklo:: mov 

tOrRl 

7 136342 

B 

9 136344 

10 

000402 


DR 

BLNKDS 

012701 

000001 

blhkhi: :mov 

tliRl 

11 134350 

012700 

000006 

BLNKDS! MOV 

*6rR0 

12 136354 

105061 

007712 

it: clrb 

SEGBUFtRU 

13 134360 

005721 


TST 

(R1)T 

14 136362 

077004 


SOB 

ROr It 

15 136364 

000207 


RTS 

PC 


(index lower display 


(index upper display 

(count A digits 
(blank a digit 

(index next didit of sate display level 
(do six digits 


DSPDEC takes a nuiber in RI and an index to either second-frot-lhe-left LED 
digit in R2 and displays the nuaber as a dental value on the correspondins 
LED diSits. R2 - 10 to index the lower row of LEDs. = 11 for the upper row, 
The leftiost LED digits are not affected. To display a two's eotpleaent 
decital valuer call this routine frot another routiner which places a tinus 
siSn in the leftiost LEO disit and passes the absolute value of the nutber 
to be displayed to this routine. 

Uses! Rl Decital value to be displayed 

R2 Index to LED row on which to display it 


Returns! 


ROr Rl r Contain SarbaSe 
R2r R3 


35 136366 

004767 

015662 

DSPDEC! !JSR 

PCtBINASl 

(Set 10000's digit 

36 136372 

010146 


MOV 

Rlr-(SP) 

(save retainder 

37 136374 

010201 


MOV 

R2>R1 

(index left LED diSit 

38 136374 

004767 

177370 

JSR 

PCrDSPBIG 

(display decital digit 

39 136402 

005742 


TST 

-<R2i 

(index next disit 

40 136404 

012601 


MOV 

(SP)trRl 


41 136406 

012703 

000004 

MOV 

♦4rR3 

(take a counter 

42 136412 

004767 

015576 

It! JSR 

PC r 8IMASC 

(strip a disit frot Rl 

43 136416 

010146 


MOV 

Rl.-(SP) 

(switch reSisters 

44 136420 

010201 


MOV 

R2rRl 


45 136422 

004767 

177344 

JSR 

PCrDSPBIG 

(display decital disit 

46 136426 

005742 


TST 

-{R21 

(index next disit to the riSht 

47 136430 

012601 


MOV 

(SPH.R1 

(set back decital nutber 

48 136432 

077311 


SOB 

R3.lt 

(do six diSits 

49 136434 

000207 


RTS 

PC 
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KEYSET turns on the LEDs and waits for a Keypress, The key nuiber of the 
key that was pressed is returned in Rl. The keys are nuabered as follows: 

00 - [CLR] 12 - C 4 1 

01 - C t 1 13 - C 9 1 

02 — C 4 3 14 - [ADO] 

03 - [ 7 ] 15 - CBAC3 

04 — C 0 ] 14 — [REG] 

05 - [ 2 1 17 - CA0R3 

04 - [ 5 ] 20 - [SST] 

07 - [ 8 1 21 -- TG0 ] 

10 - [EXA1 22 - [BPT] 

11 - [ 3 3 23 ~ LFNCJ 


Returns: 


Contains nuaber of key that was pressed 


KEYPIV Cleared 
SPCLBf Cleared 


Priority reduced to 5 


25 134434 

012737 

134470 

007474 

KEYGET ! : MOV 

♦KEY6El»MKEYPIV*link input routine to keypress vector 

24 134444 

112737 

000007 

177444 

M0V8 

♦007fMP»PORC 

(turn on LED displays 

27 134452 

104701 



MFPS 

Rl 


28 134454 

120127 

000277 


CMPB 

R1.4277 

(priority 5 is taxiaui for LEDs to operate 

29 134440 

101402 



BL0S 

If 


30 134442 

104427 

000240 


MTPS 

♦240 

(set priority 5 

31 134444 

000777 



i*: br 

If 

(wait for keypress 

32 

33 134470 

005037 

007474 


KEYGE1! CLR 

MKEYPIV 

(disconnect keypress vector 

34 134474 

005037 

007724 


CLR 

MSPCLBf 

(turn off flashing error) if ana 

35 134500 

012402 



MOV 

CSP!f»R2 

(restore R2 

34 136S02 

005724 



TST 

(SPH 

(discard old Rl 

37 134504 

012400 



MOV 

(SP)tiRO 

(restore R0 

36 134504 

005724 



TST 

(SP)+ 

(discard return address 

39 134510 

104424 



MTPS 

(SPH 

(but replace PS byte 

40 134512 

000207 



RTS 

PC 

(return to caller of KEYGET 
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1 


2 SH 

3 i KEfBCO translates the Key nuaber in Rt into a BCD value for the keys 0 to 9t 

4 i 12 for the CLR keyi 013 for the EXfl key> and -1 for all other keys, 


5 


6 

7 


i Uses! 

R1 

Key nunber to be translated 

s 


f 

i Returns! 



9 


S 

R1 

Translated value 

10 


}— 



11 





12 134514 

114101 134522 

keybcd:;novb 

BCDTBLtRD.Rl (translate R1 into 

13 134520 

000207 

RTS 

PC 


14 





15 134522 

012 

bcdtbl: .byte 

012 

i [CLR] 

14 134523 

001 

.BYTE 

001 

SC 1 1 

17 134524 

004 

.BYTE 

004 

S( 4 ] 

IB 134525 

007 

.BYTE 

007 

SC 7 1 

19 134524 

000 

.BYTE 

000 

SC 0 ] 

20 134527 

002 

.BYTE 

002 

SC 2 ] 

21 134530 

005 

.BYTE 

005 

SC 5 ] 

22 134531 

010 

.BYTE 

010 

St 8 ] 

23 134532 

013 

.BYTE 

013 

SCEXA] 

24 134533 

003 

.BYTE 

003 

)[ 3 ] 

25 134534 

004 

.BYTE 

004 

SC 4 ] 

24 134535 

Oil 

.BYTE 

on 

SC 9 ] 

27 134534 

377 

.BYTE 

377 

SC ABU] 

28 134537 

377 

.BYTE 

377 

SCBAC] 

29 134540 

377 

.BYTE 

377 

SCREGJ 

30 134541 

377 

.BYTE 

377 

StADB] 

31 134542 

377 

.BYTE 

377 

fCSST] 

32 134543 

377 

.BYTE 

377 

SC GO ] 

33 134544 

377 

.BYTE 

377 

SIBPT] 

34 134545 

377 

.BYTE 

377 

SCPNC1 

35 


.EVEN 




36 
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1 

2 

3 

1 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 136546 042737 000002 

18 136554 004767 177264 

19 136560 004767 177652 

20 136564 004767 177724 

21 136570 005701 

22 136572 100770 

23 136574 020127 000012 

24 136600 101026 

25 136602 001420 

26 136604 020127 000010 

27 136610 103361 

28 136612 032737 000002 

29 136620 001004 

30 136622 005002 

31 136624 052737 000002 

32 136632 004302 

33 136634 006302 

34 136636 006302 

35 136640 060102 

36 136642 000744 

37 

38 134644 005002 

39 136646 052737 000002 

40 136454 000737 

41 

42 136656 000207 
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14 

NUMGET displays the current value of R2 in the lower row of LEDs. leavinb the 
! upper row intact. The keypad is enabled to allow the user to aodify the value 
in R2 with the 0 - 7 and CLR keys. The value in R2 is returned, whether 
altered or not. when the user presses EXA, 



i 

Uses! 

R2 Initial value 


i 

i 

Returns! 




1 


R2 Mew value (if chanbed) 


9 


P .CHAN Flab in FLAGS 1 is set if R2 was chanbed. cleared otherwise 


i 


R1 Contains barbase 


1 

r — 


R0 Contains barbase 

007706 

NUMGETl'.BIC 

♦F. CHAN iBtFLAGSl .show R2 hasn't chanbed yet 


it: 

JSR 

PC.DSPLNN 

.display value in R2 on lower LEDs 



JSR 

FC.KEYGET 

(wait for a keypress 



JSR 

PC.KEY6CD 

.convert key nu»ber into BCD 



TST 

R1 

. was it a lesal key? 



SKI 

It 

.no. bet another 



CUP 

R1.4012 

iwas it nuteric? 



BH1 

2t 

.no. it was EXA/EMT. so return value in R2 



BEG 

3t 

.no. it was clear 



CMP 

R1.4010 

.was it 8 or 9 (not valid octal dibits)? 



BH1S 

It 

iyes. so ibnore it 

007706 


BIT 

IF.CHAN.BIFLAGSlihas R2 been chanbed yet? 



BNE 

4t 

.yes. Just scroll in key 



CLR 

R2 

.else clear old value first 

007706 


BIS 

♦F.CHANiBtFLAGSl 

.indicate it has been changed 


4t: 

ASL 

R2 

.•ake space for new dibit 



ASl 

R2 




ASL 

R2 




ADD 

R1.R2 

.scroll in new dibit 



BR 

It 

.accept additional dibits 


3$: 

CLR 

R2 

.clear nuiber for CLR key 

007706 


BIS 

♦F. CHAN > 8*f LAGS 1! show R2 chanbed 



BR 

It 



2t: 

RTS 

PC 

.return value 
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1 

2 

3 

4 

5 

6 

7 

8 

9 136660 

10 136662 

11 136666 

12 136670 

13 136672 

14 136676 

15 136704 

16 134712 

17 136720 

18 134726 
1? 136734 

20 134742 

21 136750 

22 

23 

24 

25 
24 

27 

28 
29 


.SBTTL Error Condition and Startup Entry Code 


♦START is the pouerup initialzation routine? which is executed after the 
diagnostics are collated. 


♦start: :clr 

MOV 


007724 

007400 007746 
000050 007710 
000116 050544 
135676 007702 
135676 000024 
000340 000026 
007320 007462 


R0 

♦14000.R1 

(R0H 

Rl.lt 

R5.MSPCLBF 

♦SCRPAD.mSP 

♦050,8»C0NFL6 

♦116.MF3251 

♦♦NULLI.B#USERVS 

♦♦NULL1.M24 

#340.8*26 

♦TBLT0P.8*TBL80T 

♦HALT+4 


.clear RAM fro* 0 to 27777 


. put power-up error code on LEDs 
.set up user stack pointer 
.set default baud rates 
.set default value for 8251 lode byte 
.initialize user's interrupt vector 
>pf points at null 

I 

.initialize e«pty symbol table 
.don't clear error display 


♦HALT is the routine invoked by the HALT button, the HALT L line on the 
board, and the HALT instruction. It saves the processor registers and the 
contents of USERIV and KEYPIV if a user prodra* was running. It also 
perforis a bus reset and reinitialization of peripheral chips before 
invoking the keypad »onitor. 


30 


31 136752 

005037 

007726 

♦halt:: clr 

8BSPCLBF 

iclear error code on LEDs, if any 

32 136756 

004747 

000022 

JSR 

PC.UCSAVE 

.save context and fix user SP 

33 136762 

004747 

176110 

JSR 

PC.I0INIT 

.assert RESET line and reinitialize ports 

34 136766 

35 

042737 

177377 007706 

BIC 

*177377.8#FLAGS1 

.1 reset »ode. set keypad canard entry 
.leave F.BRKA so breakpoints will be removed 

36 136774' 

004767 

176224 

JSR 

PC.I0VECT 

.lake sure interrupt vectors aren't d3»aded 

37 137000 

000167 

000564 

JMP 

♦MONIT 

.enter Mnitor 


38 
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0 

£ 








3 





UCSAVE saves the processor 

reSisters and the contents of USERIV and KEYPIV 

4 

5 




} 

if a user proSram was runnins, It also initializes the monitor stack. 

6 

7 137004 

012437 

007440 


UCSAVE11M0V 

(SPH.HSTACK-2 

(move return address to monitor stack 

8 137010 

032737 

000100 

007706 


BIT 

*F .USERrMFLAGSl ! runnins user code? 

9 137016 

001433 




BED 

1$ 

(no 

10 137020 

012637 

007750 



MOV 

<sp)+»e«pc 

(wesr save user context, startins with PC 

11 137024 

112637 

007752 



M0VB 

(SPH.MSPS 

(PS next 

12 137030 

042737 

177400 

007752 


BIC 

*177400. B«PS 

(prevent sisn extension 

13 137036 

010637 

007744 



MOV 

SPtMlSP 

(fix and save stack pointer 

14 137042 

010037 

007732 



MOV 

ROiMWtO 

(save R0. 

15 137046 

010137 

007734 



MOV 

R1.MIR1 

(Rl> 

16 137052 

010237 

007734 



MOV 

R2.MtR2 

(R2. 

17 137056 

010337 

007740 



MOV 

R3.M1R3 

. R3» 

18 137042 

010437 

007742 



MOV 

R4.M4R4 

(R4. and 

19 137066 

010537 

007744 



MOV 

R5.8HR5 

(R5 

20 137072 

013737 

007674 

007700 


MOV 

04KEYP IV r 04KEYPVS (save user keypress vector 

21 137100 

042737 

000100 

007704 


BIC 

*F. USER. B4FLA6S1 (show that user context has been saved 

22 137106 

012706 

007440 



MOV 

♦STACK-2.SP 

(So to monitor stack 

23 137112 

24 

25 

26 

000207 



?++ 

RTS 

PC 

(and return to callinS routine in monitor 

27 




i 

BREAK is the console break interrupt service routine. It is similar to HALT 

28 




* 

except that it does not invoke the keypad monitor if the console monitor was 

29 




i 

runnins previously. The host mode is terminated by BREAK. 

30 

31 




f — 




32 137114 

005737 

177562 


break:: tst 

8*CtRBUF 

(acknowledse interrupt 

33 137120 

004747 

177660 



JSR 

PC.UCSAVE 

(save user context 

34 137124 

004767 

175744 



JSR 

PCrIOINIT 

(assert RESET line and reinitialize ports 


35 137130 042737 035377 007704 BIC #035377. MFLAGS1 (initialize monitor modes 

34 137136 012737 133000 000060 MOV #LINEIH.MC0H1N (hook up console input service routine 

37 137144 142737 000007 007710 BICB #007 > 64C0NFLG (clear console line flaSs (but not speed) 

30 137152 113700 007710 M0VB MCQNFLG.R0 (Set current baud rate 

39 137156 052700 000002 BIS #000002f R0 (enable pros, baud rater disable >:»it interrupt 

40 137162 010037 177564 MOV RO.BtCtXCSR (transfer control word to console Port 

41 137166 012700 000001 MOV tl.R0 (indicate console break service 

42 137172 000446 BR FERROR (so to fatal error handler to reenter monitor 

43 
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1 

2 ;++ 

3 i BRKPT is the breakpoint service routine. If invoked fro* a user erodra*. the 

4 i processor context is saved. If invoked in response to a eonitor breakpoint 

5 i rather than a sindle step or user breakpoint, the PC value saved fro* the 

6 . previous context is adjusted to point to the location which contained the 

7 i oonitar breakpoint. 

B 


9 

10 137174 106427 000340 BRKPT 1* (UPS 

11 137200 004767 177600 JSR 

12 137204 032737 001000 007706 BIT 

13 

14 137212 001405 BEQ 

15 137214 042737 001000 007706 SIC 

16 137222 000147 002466 JNP 

17 

IB 137226 032737 000200 007706 24! BIT 

19 137234 001155 BNE 

20 137236 032737 000400 007706 BIT 

21 137244 001430 KQ 

22 137246 013701 007750 HOV 

23 137252 005741 TST 

24 137254 012700 007760 MOV 

25 137260 012702 000004 NOV 

26 137264 022001 44! CHP 

27 137266 001403 BEQ 

2B 137270 005720 TST 

29 137272 077204 SOB 

30 137274 000414 BR 

31 

32 137276 052737 020000 007704 341 BIS 

33 137304 010137 007750 MOV 

34 137310 052737 001000 007704 BIS 

35 137316 032737 002000 007704 BIT 

36 137324 001521 BEQ 

37 137326 012700 000002 54! NOV 

38 137332 000406 BR 


♦340 .disable interrupts in case vector is daiaded 

PC.UCSAVE .save user context 

♦F.BRKG.MFLAGSliare we sindle stepping through a break 

{point 

24 .no. so check if sindle step or new breakpoint 

If .BRXG.MFLAGS1. reset condition 

4G0 .install breakpoints and resuie execution 

♦F.SST.MFLAGS1 iare we sindle stepping? 

4N0NIT iyes. so not a breakpoint— enter »onitor 

IF.BRKA.MFLAGSljare breakpoints installed? 

51 ino--user prodra* contains BKK. so sidnal error 

M4PC.R1 {Set user PC 

-(Rl) {back up to 8RK instruction 

♦BRKFIL.R0 .index breakpoint file 

♦4.R2 (four entries in file 

(R0H.R1 idid we in fact encounter a breakpoint? 

34 .yes. so adjust PC. no error »essade 

(ROH .advance to next entry 

R2.44 

54 (no *atch- -prodr a* contains BRK,..sidrial error 

♦F.TBAS.MFLAGSl.show we need to print break point *essade 

R1.M4PC .fix PC 

4F.BRKG.MFlAGSl.show «e need to sir.dle step 

♦F.KETPrMFLAGSlJno tessade if in keypad »ode 

IN0NIT iso just enter nonitor 

♦2.R0 {indicate breakpoint service 

FERR0R .do to fatal error handler to reenter nonitor 


39 

40 


41 

42 

43 

44 


ITRAP is the illedal instruction trap routine. If a user prodra* was runnind. 
the processor context is saved before invokinS the ton! tor. 


45 

46 137334 106427 000340 ITRAPt! NTPS 1340 .disable interrupts in case vector is daaaded 

47 137340 004747 177440 JSR PC.UCSAVE isave user context 

4B 137344 012700 000003 NOV I3.R0 .indicate invalid instruction trap 

49 


A-35 
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Error Condition 

1 

2 

3 

4 

5 

6 
7 

B 137350 

9 137352 

10 137356 

11 137360 

12 137362 

13 137370 

14 137372 

15 137376 

16 137402 

17 137406 
IB 137412 

19 

20 137414 

21 137422 

22 

23 137424 

24 137426 

25 137430 

26 137432 

27 

28 137434 
137442 

29 137446 

30 137450 
137456 
137464 

31 137470 

32 137472 
137500 
137506 
137514 

33 137520 

34 137522 
137530 
137536 

35 137540 

36 

37 137542 

38 137544 

39 137546 

40 137550 

41 137552 

42 137554 

43 

44 
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pH 

; FERR0R signals errors for the above routines and others in the keypad aonitor. 

. If the keypad aonitor is running? the errors are displayed on the LEDs. For 

1 the console aonitorp the error aessaSes are displayed on the console. 


010046 



terror: :mov 

R0.-<SP> 

(save error number 

004767 

175646 


JSR 

PC.IOVECT 

(take sure interrupt vectors aren't daaaaed 

012600 



MOV 

(SPHpRO 

(Set error nuaber 

006300 



ASL 

RO 

(turn it into an index 

032737 

002000 

007706 

FIT 

♦F.KETP.WFLAGSl.are we in keypad aode? 

001411 



BEQ 

14 

iyesp so no console aessase 

016002 

137422 


MOV 

FNESAG-21R0): 

pR2 (start address of selected aessase 

004767 

174122 


JSR 

PCpCRLF 

(send <CR> <LF> 

004767 

174360 


JSR 

PC.PRINT 

(print radix-50 aessaSe 

005037 

047630 


CLR 

B4BP 

(aake sure nothing left in buffer 

000466 



24! BR 

4M0NI7 


016037 

137542 

007726 

i$: mov 

FERCHR(RO) .B4SPCLBF (put two character error code on LEDs 

000462 



BR 

4M0NIT 



137434 

137450 

137472 

137522 


FMESAGC.WORD FMESG1 
.WORD FMESG2 
.WORD FMESG3 
. WORD FNESG4 


(pointers to error aessages 


012446 074444 
070511 042300 
000000 
007525 
055240 
076732 


017502 FMESG11 .RAD50 /CONSOLE BREAK/ 


003770 

020563 

017740 


063141 

060426 


.WORD 
FMESG21 .RAD50 


/BREAK POINT ENCOUNTERED/ 


000000 



.WORD 

0 



035206 

004051 

014411 

FMESG3: . RAD50 

/INVALID INSTRUCTION ENCOUNTERED 

055214 

071713 

077167 





053605 

054007 

102604 





021025 

014400 






000000 



• WORD 

0 



035206 

004051 

014423 

FMESG4! .RAD50 

/INVALID STACK POINTER/ 


076453 

042320 

057466 





076732 







000000 



.WORD 

0 



120 

076 


FERCHR ! ! . BYTE 

120.076 

(r.U (Ur 

Error) 

174 

071 


.BYTE 

174.071 

ib.C (Cb 

Error) 

163 

174 


.BYTE 

163.174 

(P.b (bP 

Error) 

124 

006 


.BYTE 

124.006 

f n. I (In 

Error) 

163 

155 


.BYTE 

163.155 

(P.S (SP 

Error) 

006 

174 


.BYTE 

006.174 

(I.b (bl 

Error) 




.EVEN 
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1 

2 

3 

4 

5 
A 


M0NIT1 is the aonitor entry point to be used for normal exit fro» user 
prodrais. The processor context is saved, except for the PC> which retain 
its previous value so that the rrodrai can be run adain. 4M0NIT is the 
entry point used by aonitor routines after the processor context has been 
saved. 


8 

9 


10 137556 

106746 



MONITUiMFPS 

-(SP) 

.push PS. PC like fro* a trap 

11 137560 

013746 

007750 



MOV 

mPC.-(SP) 

.but keep previous user PC value 

12 137564 

004767 

177214 



JSR 

PC.UCSAVE 

.save user context 

13 137570 

032737 

000400 

007706 

*honit:;rit 

♦F.BRKAiMFLAGSl.breakpoints currently installed? 

14 137576 

001426 




BE0 

2t 

ino 

15 137600 

012700 

000014 



MOV 

4014.R0 

.index last breakpoint address 

16 137604 

016001 

007760 


3$: 

MOV 

BRKF1KR0J.R1 

idet breakpoint address 

17 137610 

001404 




BEG 

40 

.this breakpoint is not defined 

18 137612 

005720 




TST 

CR0>+ 

.point to previous contents 

19 137614 

016011 

007760 



MOV 

BRKFIKR0MR1) 

.‘restore contents of breakpoint 

20 137620 

005740 




TST 

-(R0> 

.do back to address 

21 137622 

024040 



4t: 

CMP 

-<R0)MR0> 

.backup to next address 

22 137624 

005700 




TST 

R0 


23 137626 

100366 




BPL 

30 

ido four entries 

24 137630 

013704 

007750 



MOV 

800PC.R4 

.point to next location 

25 137634 

032737 

020000 

007706 


BIT 

♦F.TBAS.SOFLAGSlisee if we should print eessade 

26 137642 

001404 




BEG 

20 

.branch if not 

27 137644 

004767 

015400 



JSR 

PC.TYPADR 

.type address 

28 137650 

004767 

015314 



JSR 

PC.TYP10I 

.disassemble next instruction 

29 137654 

042737 

030400 

007706 

20 : 

BIC 

♦F.BRKAFF.APPL+F.TBAS.MFLAGSl .‘indicate breakpoints moved 

30 







.and enable break on "C 

31 137662 

032737 

002000 

007706 


BIT 

OF. KEYP»MFLAGSlf keypad aode? 

32 137670 

001402 




BED 

10 

lyes, do to keypad monitor 

33 137672 
•u 

000167 

003026 



JMP 

CHON IT 

land do to console monitor 

35 137676 

If 

000167 

000276 


it: 

JMP 

KMONIT 


3o 

37 

000076 




.REPT 

<140000-. > 


38 





.BYTE 

0 
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1 

2 .SBTTL Entry Points 

3 

4 SH 

5 * MONITOR ENTRY POINTS! 

6 i — 

7 


8 140000 

000167 

015330 

START!! JMP 

DIAGNO 

f do diagnostics. then initialize tonitor 

9 

10 140004 

11 

12 

13 140010 

000167 

176742 

RSTART!!JMP 

♦HALT 

.HALT instructions and halt line vector 
isave context and restart aerator 

000167 

177542 

HON1TR! J JMP 

HON1T1 

istsndard tonitor entry (no error condition) 
ifrot user program save context and reaove 
.breakpoints 

14 

15 

16 

17 



iff 



18 



S KEYPAD/LED 

utility 

ENTRY POINTS! 

19 



}-- 



20 

21 140014 

000167 

175752 

DGDISPiJJMP 

DSPDIG 

.Display nuiber in RO bits 3 to 0 as a hex 

22 





(digit at LED Position indexed by Rl. 

23 





.Rl-12.10t06.04t02.00 -- lower display digits 

24 





iRl'I3.il»07i05.Q3.01 — upper display digits 

25 





iRO bits 15 to 4 are cleared) 2 is added to Rl 

20 






27 140020 

28 

29 

30 

31 140024 

000167 

176012 

UPDISP.'.'JNP 

DSPUNM 

.Display miaber in R2 as a 6 digit octal value 
jin the upper row of LEDs. Returns 15 in Rl 
iand garbage in RO. 

000167 

176014 

LODISP! ! JMP 

DSPLNN 

.Display nuiber in R2 as a 6 digit octal value 
jin the lower row of LEDs. Returns 14 in Rl 
land garbage in RO. 

32 

33 

34 

35 140030 

000167 

176332 

DECDSP!! JMP 

PSPDEC 

.Display nutber in Rl as a 5 digit decital 

30 





jvalue on the row of LEDs indexed by R2. 

37 





»R2 s 010 for the lower rowi Oil for the upper 

38 





.Returns 2 ero in R! and R3» and garbage in R0 

39 





iand R2. 

40 

41 140034 

000167 

176304 

UPBLHK! J JMP 

BLNKHI 

.Blank the upper row of LEDs. Returns zero in 

42 





. R0 and garbage in Rl. 

43 

44 140040 

000167 

176272 

LOBLNKmJHP 

BLNKLQ 

.Blank the lower row of LEDs. Returns zero in 

45 





f R0 and garbage in Rl. 

46 

47 140044 

000167 

176366 

GETKEYIiJNP 

KEYGET 

.Turn on LEDs and wait for a keypress. Return 

48 





ikey nuiber in Rl. Modifies KEYFIV. 

49 

50 140050 

51 

52 

53 

54 140054 

000167 

176440 

BCDKEY ! ! JMP 

KEYBCD 

{Translate key nuiber in Rl to a BCD value for 
.keys 0 to 9. 012 for the CLR key. 013 for the 
.EX/ENTR key. and -1 for all other keys. 

000167 

176466 

6ETNiM!!JMP 

NUMGET 

.Display nuiber in R2 as an octal value on the 

55 





Slower row of LEDs. Activate keypad and allow 

56 





.user to iodify the value in R2 with the keys 

57 





!0 through 7 and CLR. Return the value in R2< 
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58 ichanted or not> when user presses EXA. Uses 

5? >R2> Kl> and RO. 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
14 

17 

18 

19 

20 
21 
22 

23 

24 

25 
24 

27 

28 

29 

30 

31 

32 

33 

34 

35 
34 

37 

38 

39 

40 

41 

42 

43 

44 

45 
44 

47 

48 

49 

50 

51 

52 

53 

54 

55 
54 
57 


(Ft 

i CONSOLE LINE UTILITY ENTRY POINTS! 


140060 

000167 

000104 

JNP 

FIXBP 

(Prowpt for a line froi the console. Return 
(the line in BUFFER with R3 cleared. 

140064 

000167 

t73346 

JNP 

GETBP 

(Transfer the back pointer (BP) to R3. 

140070 

000167 

173222 

JNP 

GETCH 

(Retrieve character indexed by R3 fro* BUFFER. 
(Returns character in R0, R3 incre*ented by 1. 
(Returns H set if character is a separator; 

!C set if it is lower case. 

140074 

000167 

173304 

JNP 

GETLCH 

(Retrieve character indexed by <R3 - 1) fro* 
(BUFFER. Returns sa»e as GETCH. 

140100 

000167 

173306 

JNP 

GETCHC 

(Retrieve character indexed by R3 frost BUFFER 
(without folding lower case. Returns character 
(in R0f and R3 incre»ented by 1. 

140104 

000167 

173316 

JNP 

GETNXT 

(Retrieve next character which is not a 
(separator fro* BUFFER starting at location 
(indexed by R3. Returns character in R0 with 
(lower case folded) R3 indexes next character 
(in BUFFER. 

140110 

000167 

173334 

JNP 

PURGE 

(Eli»in3te BUFFER contents below location 
(indexed by BP. 

140114 

000167 

174022 

JNP 

ECHO 

(Echo contents of BUFFER to the console 


(starting with location indexed by R3. Returns 
(R3 indexing BUFFER location Just beyond last 
(echoed character. 


140120 

000167 

173400 

JNP 

CRLF 

i Send a carriage return and line feed to the 
(console (and printer). 

140124 

0001 67 

173400 

JNP 

CHR0UT 

(Send a (pair Df) character(s) Id the console 
((and printer). Character to be sent should 
(be in lower byte of R0. If upper byte of RO 
(is non-zero) it will be sent as a second 
(character, 

140130 

000167 

173404 

JNP 

ClffiOl 

(Send a single character fro* the lower byte 
(of RO to the console (and printer). Returns 
(R0 with its byte swapped. 

140134 

000167 

173414 

JNP 

CHR02 

(Send a single character fro* the lower byte 
(of RO to the printer (aux. port) only. 
(Returns R0 with its bytes swapped. 

140140 

000167 

173462 

JNP 

6 SCOUT 

(Output an ASCII character in the lower 7 bits 


(of R0 as a visible (string of) chsracter(s) 

(on the console. Control characters are output 
(as "<letter>» with exceptions <SP>p<ESC>.YD£L; 
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58 

5? 

60 

61 

62 

63 

64 

65 

66 

67 

68 
6 ? 

70 

71 

72 

73 

74 

75 

76 

77 

78 


140144 000167 173604 JHP PRINTA SOutrut a strins of bytes to the console (and 

Jprinter). R1 points to start of strinSt uhich 
•aust end with a blank byte. Returns R1 
ipointins to byte just after blank byte, 

J+f 

i PARSING ANB OUTPUT UTILITY ENTRY POINTS? 


140150 

000167 

004346 

JNP 

GETEXP 

140154 

000167 

004332 

JNP 

GENEXP 

140160 

000167 

014560 

JNP 

TYPOCT 

140164 

000167 

014470 

JNP 

TYPDEC 

140170 

140174 

005037 

000167 

007630 

173040 

fixrp: clr 

JNP 

MRP 

GETLIN 
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1 


2 .SBTTL Keypad Monitor 

3 


4 

140200 

042737 

000077 

007706 

kmonit; 

: :fic 

♦000077 f 0#FL AGS 1! cl ear previous »cde 

5 

140206 

042737 

000001 

007756 


8IC 

♦ IfMtABOR 

inake current address and watchpoint even 

6 

140214 

042737 

000001 

007754 


BIC 

♦liMtWATCH 

Jin case we csue froi console »onitor 

7 

140222 

052737 

000010 

007706 


BIS 

♦F.REGiMFLAGSl 

(set register select node 

8 

140230 

012704 

000007 



MOV 

♦0Q7.R4 

(index PC 

9 

140234 

010402 




MOV 

R4rR2 

!set up to display ' PC * on upper LEDs 

10 

140236 

004767 

175650 



JSR 

FC.DSPNAH 

f display it 

11 

140242 

013705 

007750 



MOV 

MtPCrRS 

iset FC contents 

12 

140246 

010502 




MOV 

R5iR2 

(set up to display on lower LEDs 

13 

140250 

004767 

175570 



JSR 

pcjUsplmm 

(display it 

14 

140254 

032737 

000200 

007706 


BIT 

♦F.SSTiMFLAGSI 

.were we single steering? 

15 

140262 

001411 




BEQ 

KLOOP 

!no 

16 

140264 

042737 

000200 

007706 


BIC 

♦F.SST fMFLAGSI 

(clear condition 

17 

140272 

013702 

007754 



MOV 

MttlATCH»R2 

r is there a watcheoint? 

18 

140276 

001403 




BEQ 

KLOOP 

(no 

19 

140300 

011202 




MOV 

8R2.R2 

(get watcheoint contents 

20 

140302 

004767 

175530 



JSR 

PCfBSPUNM 

(display watchpoint contents in upper display 

21 

22 

140306 

012737 

140330 

007676 

KL00P! 

: mov 

♦KEYCHB»8*KEYPIV» link coatand input routine to keypress vector 

23 

140314 

112737 

000007 

177444 


MOVB 

♦007rB4PtP0RC 

(turn on LED display 

24 

140322 

106427 

000240 



MTPS 

#240 

(enable LED display interrupt 

25 

26 

140326 

000777 



it: 

BR 

It 

(wait for keypress, key code returns in R1 

27 

28 

140330 

005037 

007676 


KEYCMD; 

::clr 

84KEYPIV 

(disconnect keypress vector 

29 

140334 

012706 

007462 



MOV 

♦STACK fSP 

(pop saved registers and return vector 

30 

140340 

005037 

007726 



CLR 

MSPCLBF 

(turn off flashing error. if any 

31 

140344 

112737 

000010 

177444 

KEYCMIIIHOVB 

♦010»?#PtPORC 

(turn off LED display for faster execution 

32 

140352 

006301 




ASL 

R1 

(sake a word index of R1 

33 

34 

35 

140354 

000171 

140360 



JMP 

ODSPTBL(Rl) 

(dispatch to appropriate routine 

140360 

141110 



BSPTBL 

: : .word 

tCLR 

([CLR] 

36 

140362 

140430 




• WORD 

♦NUMER 

it 1 1 

37 

140364 

140430 




.WORD 

tNUMER 

it 4 1 

38 

140366 

140430 




.WORD 

tNUMER 

([ 7 1 

39 

140370 

140430 




• WORD 

tNUMER 

([ 0 ] 

40 

140372 

140430 




• WORD 

tNUMER 

([ 2 ] 

41 

140374 

140430 




• WORD 

tNUMER 

(t 5 ] 

42 

140376 

140430 




.WORD 

tNUMER 

([ 8 1 

43 

140400 

141122 




.WORD 

tEXAM 

(CEXA1 

44 

140402 

140430 




.WORD 

tNUMER 

([ 3 1 

45 

140404 

140430 




.WORD 

tNUMER 

SC 6 3 

46 

140406 

140430 




.WORD 

tNUMER 

([ 9 ] 

47 

140410 

141232 




.WORD 

tADV 

(CADV] 

48 

140412 

141372 




.WORD 

tBACK 

(CBAC] 

49 

140414 

141610 




.WORD 

♦REG 

([REG] 

50 

140416 

141550 




.WORD 

tADDRK 

([ADD] 

51 

140420 

141706 




.WORD 

tSST 

([GST] 

52 

140422 

141714 




.WORD 

too 

([GO ] 

53 

140424 

141462 




.WORD 

tBRKP 

iCBFT] 

54 

140426 

141650 




.WORD 

tFUNC 

iCFNC] 
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1 

2 .SBTTL Key Do»»arid Routines 

3 


4 

140430 

006201 



inumerjjasr 

R1 

.restore key nuaber 

5 

140432 

004767 

176056 



JSR 

PCiKEYBCD 

.get BCB value for key code 

6 

140434 

032737 

000040 

007706 


BIT 

IF.FUNC.MFLAGSl r is disit a function selection? 

7 

140444 

001403 




BEO 

44 

Ino 

8 

140444 

020127 

000004 



CMP 

Rb*C04 

iis digit higher than 4? 

9 

140452 

101315 




BHi 

KIOOP 

.yes. ignore digit 

10 

140454 

032701 

000010 


4*: 

BIT 

4QOOOLO.R1 

.’is it 8 or 9? 

11 

144460 

001404 




BEQ 

14 

ino. a legal octal digit 

12 

140442 

032737 

000005 

007706 


FIT 

♦F.BATA+F.ABBR.MFLAGS1 ino B or 9 as data or address input 

13 

140470 

001306 




BNE 

KLOOP 

.ignore the* if pressed 

14 

140472 

032737 

000002 

007706 

It! 

BIT 

IFiCHAN.MFLAGSl.has a digit Key already been pressed? 

15 

140500 

001001 




BNE 

34 

fyes. just scroll digits in 

Id 

140502 

005005 




CLR 

R5 

.else initialize digit accu»ulator 

17 

140504 

052737 

000002 

007706 

3t : 

BIS 

♦F.CHAN.MFLAGSli indicate that a digit has been pressed 

18 

140512 

032737 

000005 

007706 


BIT 

♦F . DATAf F . ADBR > MFL AGS1 iaddress and data entry scroll digits 

19 

140520 

001004 




BNE 

24 


20 

140522 

042737 

000002 

007706 


BIC 

IF. CHAN rPtFLAGSli others have single digit entry 

21 

140530 

006305 




ASL 

R5 

.prepare for fourth bit (tight be 8 or 9) 

22 

140532 

006305 



24! 

ASL 

R5 

.scroll digit into R5 (digit accutulator) 

23 

140534 

006305 




ASL 

R5 


24 

140536 

006305 




ASL 

R5 


25 

140540 

060105 




ABB 

R1.R5 


26 








.Now do execution associated with digit input 

27 








.Clear key Joins us here 

28 

140542 

032737 

000005 

007706 

digexe: 

TBIT 

♦F.BATAFF.ADDR.MFLAGS1 iJust display new data or address 

29 

140550 

001511 




BEQ 

14 

ifor others, do special displays instead 

30 

140552 

010502 




MOV 

R5.R2 

.get new value 

31 

32 

33 

140554 

004767 

175264 



JSR 

PCiBSPLNM 

land display on lower LEDs 

140560 

032737 

000001 

007706 


BIT 

♦F.BATA.MFLAGSl 

[.for addresses, store in 4ABDR 

34 

140566 

001007 




BNE 

24 


35 

140570 

010537 

007756 



MOV 

R5.M4ADDR 


36 

140574 

042737 

000001 

007756 


BIC 

♦l.MIABBR 

(take sure address is even 

37 

38 

39 

140602 

000167 

000362 



JHP 

KLGDP1 

.take another key 

140606 

032737 

000004 

007706 

24! 

BIT 

♦F.ABDRiRIFLAGSlJbut data can go sany places-are we poking RAM? 

40 

140614 

001407 




BEQ 

34 

inD 

41 

140616 

013700 

007756 



MOV 

M4ADBR.RD 

.yes. get a copy of current address 

42 

140622 

004767 

001330 



JSR 

PC.KABRCH 

.check that it is not in protected RAM 

43 

140626 

010510 




MOV 

R5.BR0 

.place data at current address 

44 

45 

46 

140630 

000167 

000334 



JMP 

KL00P1 

Stake another key 

140634 

032737 

000010 

007706 

34! 

BIT 

4F.REG.MFLAGS1 

.changing registers or watchpoint contents? 

47 

140642 

001420 




BEQ 

4$ 

.no 

4B 

140644 

020427 

000010 



CMP 

R4?t000010 

.does R4 index a register (0 thru 7 and PS)’ 

49 

140650 

101006 




BHI 

SI 

.no <R4 should be 000011 3 

50 

140652 

006304 




ASL 

R4 

i take it a word index 

51 

140654 

010564 

007732 



MOV 

R5i4R0(R4) 

(and place data in user register 

52 

140660 

006204 




ASR 

R4 

.restore R4 

53 

54 

55 

140662 

000167 

000302 



JMP 

KLOOP1 

.take another key 

140666 

013700 

007754 


54! 

MOV 

MIUATCH.RO 

lassuie R4 indexes watchpoint contents 

56 

140672 

004767 

001260 



JSR 

pc.kaurch 

icheck that it is not in protected RAM 

57 

140676 

010510 




MOV 

R5.8R0 

.deposit data into watchpoint location 
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58 

59 

60 

140700 

000167 

000264 



JNP 

KL00P1 

(take another key 

140704 

032737 

000020 

007706 

4*! 

BIT 

4F .BRKSfWLAGSI (changing breakpoint or watchpoint address? 

61 

140712 

001526 




BEQ 

KLOOP1 

tnoF idnore (strande! that was a safety check) 

62 

140714 

020427 

000014 



CNP 

R4» 0000014 

fR 4 indexind a breakpoint? 

63 

140720 

103416 




BLG 

6t 

tnoF it's not 

64 

140722 

020427 

000017 



CNP 

R4»I000017 


65 

140726 

101013 




BH1 

61 

foof it's not 

66 

140730 

006304 




ASL 

R4 

Fiake an index for word pairs 

67 

140732 

006304 




ASL 

R4 


68 

140734 

010564 

007700 


ioo< : 

NOV 

R5fBRKFIL- 060(R4) (place data in breakpoint address file 

69 

140740 

042764 

000001 

007700 


BIC 

41iBRKFIL-060(R4) (lake breakpoint address even 

70 

140746 

006204 




ASR 

R4 


71 

140750 

006204 




ASR 

R4 


72 

140752 

000167 

000212 



JNP 

KL00P1 

(take another key 

73 

140756 

010537 

007754 


61! 

NOV 

R5.mWATCH 

(assuie R4 indexes watchpoint address 

74 

140762 

042737 

000001 

007754 


BIC 

tl'tttUATCH 

F*ake watchpoint address even 

75 

76 

77 

140770 

000167 

000174 



JNP 

KL00P1 

Itake another key 

140774 

032737 

000040 

007706 

it; 

BIT 

♦FiFUNCiMFLAGSliare we entering a function code? 

78 

141002 

001407 




BEQ 

74 

fhof »ust be entering a redister nuiber 

79 

141004 

010100 




NOV 

RlrRO 

(det new didit 

80 

141006 

012701 

000004 



NOV 

#4fR1 

(index a lower display didit 

81 

141012 

004767 

174754 



JSR 

PCfDSPBIG 

(display new didit 

02 

83 

84 

141016 

000167 

000146 



JNP 

KLOOP1 

4 take another key 

141022 

032737 

000010 

007706 

7$t 

BIT 

♦F.REG.MFLAGS1 

(be sure we are selecting a redister 

85 

141030 

001457 




BEQ 

KIOOP1 

lelse idnore key 

86 

141032 

010504 




NOV 

R5-R4 

(save selected redister nuaber 

87 

141034 

020427 

000011 



CNP 

R4. *000011 

rare watchpoint contents selected? 

88 

141040 

001414 




BEQ 

84 

Syesi do special display 

89 

141042 

010402 




NOV 

R4tR2 

(display register's naae on upper LEDs 

90 

141044 

004767 

175042 



JSR 

PCrDSPNAH 


91 

141450 

006304 




ASL 

R4 

(take a word index 

92 

141052 

016405 

007732 



NOV 

4R0(R4)»R5 

(det redister's contents 

93 

141056 

006204 




ASR 

R4 


94 

141060 

010502 



9t; 

NOV 

R5fR2 

(display on lower LEDs 

95 

141062 

004767 

174756 



JSR 

PCfDSPLNN 


96 

97 

98 

141066 

000167 

000076 



JNP 

KL0GP1 

(take another key 

141072 

013702 

007754 


at: 

NOV 

8*4WATCHfR2 

(det watchpoint address 

99 

141076 

004767 

174734 



JSR 

PCiDSF'ONN 

(show it on upper display 

100 

141102 

017705 

046646 



NOV 

04UATCHfR5 

(det watchpoint contents 

101 

141106 

000764 




BR 

94 


102 









103 









104 

141110 

005005 



tCLRii 

CLR 

R5 

(clear didit accuiulator 

105 

141112 

042737 

000002 

007706 


BIC 

♦F i CHAN f B 4FLAGS l(in case of sindle didit »ude 

106 

141120 

000610 




BR 

DIGEXE 


107 









108 






•ENABL 

LSB 


109 









110 

141122 

032737 

000004 

007706 

tEXANI! 

BIT 

♦F.ADDRiMFlAGSl (examining RAN? 

111 

141130 

001421 




BEQ 

It 

(no 

112 

141132 

013702 

007756 



NOV 

0*4ADDRfR2 

(det current address 

113 

141136 

004767 

174674 



JSR 

PCfDSPUNN 

(show it on upper display 

114 

141142 

017705 

046610 



NOV 

84ADDRfR5 

(det contents 
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115 

141146 

010502 



gnexamiimov 

R5rR2 

(Seneral exaiine entry point 

116 

141150 

004767 

174670 


JSR 

PCtDSPLNM 

(show it on lower display 

117 

141154 

052737 

000001 

007706 

BIS 

♦F , DATA t MFLAGS1 ( So to data entry «ode 

118 

141162 

042737 

000002 

007706 

BIC 

OF . CHAN i MFLAGS1 i indicate no chanse yet 

11? 

141170 

000167 

177112 


KLOGPi: JKP 

KLOOP 

(take another key 

120 








121 

141174 

032737 

00001G 

007706 

1(1 BIT 

♦F.REG-8IFLAGS1 

fexaoininS a resister? 

122 

141202 

001403 



BEQ 

2$ 

(no 

123 

141204 

005704 



TST 

R4 

»R4 initialized to -1 by (REG 

124 

141206 

100357 



BPL 

GMEXAH 

(contents rut in R5 by BIGEXE 

125 

141218 

100767 



BM1 

KL00P1 

(ignore EXAH> take user push a disit first 

126 








127 

141212 

032737 

000040 

007706 

2C BIT 

IF. FWC»P#FLAGS1 (executions special function’ 

128 

141220 

001763 



BEQ 

KLOOP 1 

(isnore all other occurrences of EXAM 

129 

141222 

005705 



TST 

R5 

(R5 initialized to -1 by (FUNC 

130 

141224 

100761 



SKI 

XLOOP1 

(isnore EXAM, take user push a di sit first 

131 

141226 

000167 

000774 


JhP 

DOFUNC 

(execute special function 

132 





.DSABL 

LSB 


133 








134 








135 





iERABL 

L5B 


136 

141232 

032737 

000004 

007706 

iadvii bit 

IF . ABDRrBIFL A6S1 i step? ins tiirou* addresses? 

137 

141240 

001405 



BEQ 

11 

(no 

138 

141242 

005237 

007756 


INC 

8HADBR 

(So to next word 

13? 

141246 

005237 

007756 


INC 

MIADDR 


140 

141252 

000723 



BR 

(EXAM 


141 








142 

141254 

032737 

000010 

007706 

it: bit 

♦F.REG*MFLAGS1 

(steppinS throush registers? 

143 

141262 

001425 



BEQ 

2$ 

(no 

144 

141264 

005204 



INC 

R4 

(reSister index 

145 

141266 

020427 

000011 


CMP 

R4 ilOOOO 11 

(don't step past watchpoint contents 

146 

141272 

103411 



BLO 

3* 


147 

141274 

012704 

000011 


MOV 

*00001 lrR4 

(select watchpoint contents 

148 

141300 

013702 

007754 


MOV 

8*tlMTCHrR2 

(set watchpoint address 

149 

141304 

004767 

174526 


JSR 

PCiDSPUNM 

(show it on upper display 

150 

141310 

017705 

046440 


MOV 

BIHATCH rR5 

(set watchpoint contents 

151 

141314 

000714 



BR 

GNEXAN 


152 








153 

141316 

010402 



3(1 MOV 

R4rR2 

(display reSister's nane on upper LEDs 

154 

141320 

004767 

174566 


JSR 

PCiDSPNAM 


155 

141324 

006304 



ASL 

R4 

(aake a word index 

156 

141326 

016405 

007732 


MOV 

(R0(R4)iR5 

(set reSister contents 

157 

141332 

006204 



ASK 

R4 


158 

141334 

000704 



BR 

GNEXAN 


159 








160 

141336 

032737 

000020 

007706 

2(1 BIT 

IF .BftKSiMFLAGSl i stepeinS through breakpoints' 7 

161 

141344 

001711 



BEQ 

KLOOP 1 

(noi isnore advance 

162 

141346 

005204 



INC 

R4 

iincreaent breakpoint index 

163 

141350 

020427 

000012 


CMP 

R4. *000012 

(do special increaent pattern 

164 

141354 

001003 



BNE 

41 


165 

141356 

005724 



TST 

(R4H 


166 

141360 

020427 

000017 


41 i CMP 

R4»*000017 


167 

141364 

101440 



BIOS 

BRKP1 

(take breakpoint display 

168 

141366 

005304 



DEC 

R4 


16? 

141370 

000436 



BR 

BRKP1 


170 








171 
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172 

141372 

032737 

000004 

007706 

♦back: : bit 

4F.ADDRf?4FLAGSl!steppinS throuSh addresses? 

173 

141400 

001405 



BED 

61 

ino 

174 

141402 

005337 

007756 


DEC 

844ADDR 

iso to next word 

175 

141406 

005337 

007756 


DEC 

M4ADDR 


176 

141412 

000643 



BR 

♦EXAM 


177 








178 

141414 

032737 

000010 

007706 

6t; BIT 

♦F.RESrMFLAGSl 

isteppins throuSh reSisters? 

179 

141422 

001404 



BED 

7t 

!no 

180 

141424 

005304 



DEC 

R4 


181 

141426 

100333 



BPL 

34 

i prevent underflow 

182 

141430 

005004 



CLR 

R4 


183 

141432 

000731 



BR 

34 

1 continue in 4ADV 

184 








185 

141434 

032737 

000020 

007706 

71! BIT 

♦F.BRKSiWLAGSlj stewina throuSh breakpoints? 

186 

141442 

001652 



BED 

KLOOP1 

ino> i snore backup 

187 

141444 

005304 



DEC 

R4 

Jdecretent breakpoint index 

188 

141446 

020427 

000014 


CMP 

R4f 400001 4 

ido special decrement pattern 

189 

141452 

103005 



BHIS 

BRKPl 

iaake breakpoint display 

190 

141454 

012704 

000011 


MOV 

400001 1.R4 

! index watehpoint 

191 

141460 

000402 



BR 

BRKPl 


192 





.DSABL 

LSB 


193 








194 








195 

141462 

012704 

000014 


♦brkp: : kov 

400001 4, R4 

p index breakpoint 0 

196 

141466 

010402 



BRKPl ! MOV 

R4rR2 

fshow nate of breakpoint on upper display 

197 

141470 

004767 

174416 


JSR 

PCrDSPNAH 


198 

141474 

020427 

000014 


CMP 

R4r 40000 14 

! indexing watehpoint or a breakpoint? 

199 

141500 

103420 



BLO 

li 

pthe watehpoint 

200 

141502 

006304 



ASL 

R4 

iiake an index for word pairs 

201 

141504 

006304 



ASL 

R4 


202 

141506 

016405 

007700 


MOV 

BRKFIl-060(R4)»R5 rSet breakpoint address 

203 

141512 

006204 



ASR 

R4 


204 

141514 

006204 



ASR 

R4 


205 

141516 

010502 



24! MOV 

R5rR2 

(display it on lower LEDs 

206 

141520 

004767 

174320 


JSR 

PCiDSPLNH 


207 

141524 

042737 

000077 

007706 

BIC 

4000077»e*FLAGSl Jclear previous lode 

208 

14)532 

052737 

000021 

007706 

BIS 

4F . BRKS+F .DATA i B4FLAGS1 Uet breakpoint and data eode 

209 

141540 

000441 



BR 

KLOOP2 


210 








211 

141542 

013705 

007754 


IBS MOV 

844VATCHfR5 

fSet watehpoint address 

212 

141546 

000763 



BR 

24 


213 








214 








215 

141550 

012702 

000012 


4ADDRKi!MQV 

4012»R2 

fproipt with ' Addr 1 on upper display 

216 

141554 

004767 

174332 


JSR 

PCfDSPNAM 


217 

141560 

013705 

007756 


MOV 

B44ADDR.R5 

tSet previous address 

218 

141564 

010502 



MOV 

R5iR2 

Ishow it on lower display 

219 

141566 

004767 

174252 


JSR 

PCrBSPLNN 


220 

141572 

042737 

000077 

007706 

BIC 

4000077i84FLAGSlJciear previous lode 

221 

141600 

052737 

000004 

007706 

BIS 

4F,ABDRjB 4FLAGS1 jset current address entry lode 

222 

141606 

000416 



BR 

KL00P2 


223 








224 








225 

141610 

012702 

000013 


♦REG! * MOV 

4013>R2 

iproipt with ‘ rEG * on upper display 

226 

141614 

004767 

174272 


JSR 

PCiDSPNAM 


227 

241620 

012704 

177777 


MOV 

4-1.R4 

Unitialize reSister index to illegal value 

228 

141624 

004767 

174506 


JSR 

PCpBLMCLO 

land blank lower display 
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229 141430 

042737 

000077 

007706 


BIC 

*0000?7j 8IFLAGS1 (clear previous *ode 

230 141634 

052737 

000010 

007704 


BIS 

♦F.REG.8IFLAGS1 (and set resister select *ode 

231 141444 

000167 

176436 


KL00P2! JMP 

KLOOP 


232 








233 








234 141450 

012702 

000020 


♦func : : mov 

*020 iR2 

(pro*pt with ’ func 1 on upper display 

235 141654 

004747 

174232 



JSR 

PC,DSPm 


236 141660 

012705 

177777 



MOV 

♦-1.R5 

i initialize accuaulator to illegal value 

237 14064 

064767 

174446 



JSR 

PCtBLHKLO 

land blank lover diselae 

238 141670 

042737 

000077 

007704 


BIC 

*000077. MFLAGS1 (clear previous »ode 

239 141474 

052737 

000040 

007706 


BIS 

♦F .FUNC.8IFLAGS1 (and set function select »ode 

240 141704 

000757 




SR 

KL00P2 


241 








242 








243 141706 

052737 

000200 

007706 

tssTt: 

BIS 

♦F.SSTiMFLAGSl 

(show we are single stepping 

244 








245 141714 

023727 

007746 

007400 

too:: 

CMP 

MtSPttSCRPAD 

(is user 5P in his RAM? 

246 141722 

101004 



toois: 

BHI 

It 

(no. show error tessase 

247 141724 

023727 

007746 

000004 


CMP 

8ttSP»*4 

(and is there roo* for 2 pushes? 

248 141732 

103007 




BHIS 

2t 

(yes. SP is acceptable 

249 141734 

042737 

000200 

007706 

it: 

BIC 

♦F.SSTiMFLAGSl 

(else abort 

250 141742 

012700 

000004 



MOV 

*4iR0 

(SP Error 

251 141746 

000147 

175376 



JMP 

FERKOR 

(go to fatal error handler to reenter *onitor 

252 








253 141752 

013702 

007736 


2t? 

MOV 

8MR2.R2 

(restore user context. 

254 141754 

013703 

007740 



MOV 

MtR3iR3 


255 141762 

013704 

007742 



MOV 

MtR4>R4 


254 141766 

013705 

007744 



MOV 

MtR5iR5 


257 141772 

013737 

007700 

007676 


NOV 

MKEYPVSfMKEYPIV (end user keypress vector 

258 142000 

013706 

007746 



MOV 

MtSPiSP 

(we're on user's stack now 

259 142004 

013746 

007752 



MOV 

MtPS.-(SP) 

(push FS. PC like fro* a trap 

240 142010 

042714 

000020 



BIC 

♦020.1SP) 

(clear T-bit 

261 142014 

032737 

000200 

007706 


BIT 

♦F.SSTiBtFLAGSl 

(are we single stepping? 

262 142022 

001422 




BEG 

3t 

(no 

263 142024 

052714 

000020 


4t: 

BIS 

1020 i(SP) 

(yes. set T-bit 

264 142030 

012737 

137174 

000014 

9t: 

MOV 

♦BRKPT. 8*014 

(•ake sure BPT trap is still connected 

265 142036 

012737 

000340 

000016 


MOV 

*340.8*016 


246 142044 

013700 

007732 



MOV 

8*tR0iR0 

i finish restoring context 

267 142050 

013701 

007734 



MOV 

8*tRl»Rl 


268 142054 

013746 

007750 



MOV 

M*PC.-(SP> 

(push PC 

269 142060 

052737 

000100 

007706 


BIS 

*F.l}SER.8*FLAGSl 

(show we are running user code 

270 142066 

000006 




RTT 


(and simulate return fro* trap 

271 








272 142070 




3t: 




273 142070 

032737 

001000 

007706 

5t: 

BIT 

*F.BRKGi8*FLAGSlfsinSle stepping over a break point 

274 142076 

001352 




BME 

4t 

(if yes then don't install 

275 








274 142100 

012700 

007760 



MOV 

t BRKFIL.RO 

(start of break point table 

277 142104 

012701 

000004 



MOV 

*4.R1 

(four entrus 

278 142110 

013020 



loot: 

MOV 

8(R0)+.(R0H 

(suck up data fro* break paint locations 

279 142112 

077102 




SOB 

Rl.lOOt 

f 

2B0 142114 

012700 

007760 



MOV 

♦BRKFIL.RO 

(start of break point table 

281 142120 

012701 

000004 



MOV 

44.R1 

(sate as last tile 

282 142124 

005710 



2 «ot: 

TST 

(RO) 

(first see if there was really one set 

283 142126 

001405 




BEG 

300t 

(branch if not 

284 142130 

012730 

000003 



MOV 

*3.8(R0H 

(set break point 

285 142134 

005720 




TST 

(R0)+ 

(skip to next 
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286 142136 

077104 



4004! 

SOB 

R1.2004 

ifour entrys 

287 142140 

000402 




8R 

5004 


2B8 142142 

032020 



30041 

BIT 

(ROHi(RO)f 

(Skip this entry 

289 142144 

000774 




BR 

4004 

ido back for next 

290 142144 

052737 

000400 

007704 

50041 

BIS 

♦F.BRKAtWPLAGSlr indicate breakpoints installed 

291 142154 

000725 




BR 

94 

land So 

292 








293 








294 








295 142156 

032737 

040000 

007704 

kaorch: 

BIT 

IF. PR0T(?4FLAGS1 (keypad scratch protection on? 

294 142144 

001017 




BNE 

14 

(nor deposit anywhere 

297 142144 

020027 

020000 



CNP 

RO, 420000 

(is address above upper instance of scratchpad? 

298 142172 

103014 




BHIS 

14 

Iyes( definitely doesn't address protected RAN 

299 142174 

020027 

007400 



CNP 

ROrBSCRPAD 

(is it below lower instance of scratchpad’ 

300 142200 

103411 




BLO 

14 

!yes 

301 142202 

020027 

010000 



CHP 

ROdlOOOO 

(is it within lower instance of scratchpad? 

302 142204 

103403 




BLO 

24 

isest address is illegal 

303 142210 

020027 

017400 



CNP 

RQilSCRPAD+lOOOOlis it between instances of scratchpad RAN? 

304 142214 

103403 




BLO 

14 

Jyes( not within the»( so address is OK 

305 142216 

005000 



24! 

CLR 

RO 

(index user RAN error aessade 

306 142220 

000167 

175124 



JHP 

FERROR 

Iso to fatal error handler to reenter aonitor 

307 








308 142224 

000207 



14: 

RTS 

PC 

iaddress is acceptable 

309 
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2 . SBTTL Special Keypad Monitor Functions 

3 


u 

4 142226 

006305 


DOFUKCt'ASL 

R5 

!R5 was 0. 1. 2. 3. or 4 

5 142230 

000175 

142234 

JHP 

PFNCTBKRS) 

.dispatch to selected function 

6 

7 142234 

142246 


FNCTBL!!.WORD 

CANCEL 

fO »eans cancel breakpoints 

3 142236 

142270 


.WORD 

BOOLED 

i 1 leans turn on LEDs and do at user PC 

9 142240 

142572 


.WORD 

CMOS! 

12 leans cold start console tonitor 

10 142242 

142320 


• WORD 

SPEEDS 

.3 leans select baud rates and console tape 

11 142244 

12 

13 142246 

142562 


.WORD 

NPROT 

14 leans disable keypad lonitor scratch protec 

012700 

000020 

CANCEL! t MOO 

♦020.RO 

18 words in breakpoint file 

14 142252 

105060 

007757 

ltl CLRB 

BRKFlL-l(RO) 

lelear address/contents pairs 

15 142256 

077003 


SOB 

RO.lt 


16 142260 

005037 

007754 

CLR 

MtUATCH 

.cancel watchpoint also 

17 142264 

18 

1? 142270 

000167 

175710 

fncbon: jnp 

KMOMIT 

.So to register select lode 

112737 

000007 177444 

GO!LEB!!MBVB 

♦007>MPtPORC 

Iturn on LED displays 

20 142276 

21 

22 142302 

000167 

177412 

JMP 

too 

land so 

000454 


spdtbl: : .word 

300. 


23 142304 

001130 


.WORD 

600, 


24 142306 

002260 


.WORD 

1200. 


25 142310 

004540 


.WORD 

2400. 


26 142312 

011300 


.WORD 

4800. 


27 142314 

022600 


.WORD 

9600. 


28 142316 

29 

30 142320 

045400 


.WORD 

19200, 


012702 

000021 

SPEEDS!! MOV 

♦021.R2 

.index 'ConSol' 

31 142324 

004767 

173562 

JSR 

PC.BSPNAM 

Ishow proipt on upper display 

32 142330 

113705 

007710 

MOVE 

MC0RFLG.R5 

(Set baud rate bits 

33 142334 

042705 

177707 

BIC 

♦177707. R5 

liask out other flags 

34 142340 

006205 


St! ASR 

R5 

.shift to word index position 

35 142342 

006205 


ASR 

R5 


36 142344 

016501 

142302 

MOV 

SPDTBKR51.R1 

(Set corresponding baud rate 

37 142350 

012702 

00001G 

MOV 

♦010.R2 

lindex lower display 

3B 142354 

004767 

174006 

JSR 

Pt.DSPDEC 

Idisplas deciial nuiber 

39 142360 

004767 

174052 

31! JSR 

PC.KEFGET 

Iwait for a key 

40 142364 

020127 

000010 

CMP 

R1.M10 

Iwas it 'Enter'? 

41 142370 

001436 


BEO 

It 

.yes. So to aux port speed 

42 142372 

020127 

000016 

CMP 

Rl.tOH 

.was is a function key? 

43 142376 

103067 


BHIS 

10! 

lyes, exit 

44 142400 

020127 

000014 

CMP 

R1.0014 

Iwas it advance? 

45 142404 

001410 


BEQ 

2t 

lyes, lodify baud rate 

46 142406 

020127 

000015 

CMP 

Rl.t015 

iwas it backup? 

47 142412 

48 

49 142414 

001362 


BNE 

3t 

.no. wait for another key 

005305 


DEC 

R5 

1 decrease baud rate 

50 142416 

005305 


DEC 

R5 


51 142420 

100007 


BPL 

4t 

Ishow new rate 

52 142422 

005005 


CLR 

R5 

.prevent underflow 

53 142424 

54 

55 142426 

000405 


BR 

4t 


005725 


2t! TST 

(R5)t 

.increase baud rate 

56 142430 

020527 

000016 

CMP 

R5.W16 

.overflow? 

57 142434 

103401 


BLO 

4t 

.no 


A-49 



Ml Evaluation Module Monitor MACRO V05.00 Sunday 13-Kar-B3 04510 Fade 34-1 
Special Keypad Monitor Functions 


58 142436 

005745 



1ST 

-(R5) 


59 142440 

006305 


441 

ASL 

R5 

(store index in baud rate bits 

60 142442 

006305 



ASL 

R5 


61 142444 

004305 



ASL 

R5 


62 142446 

106137 

007710 


RCLB 

BICONFLG 

(preserve hiii order bit (F.A64X) 

63 142452 

110537 

007710 


MOVB 

R5.MC0NFLB 


64 142456 

106037 

007710 


R0RB 

04COMFLG 


45 142462 

006205 



ASR 

R5 


66 142464 

67 

68 142466 

000725 



BR 

54 


012702 

000022 

i»: 

MOV 

*022, R2 

(index 'A. Port' 

49 142472 

004767 

173414 


JSR 

PCrDSPMAM 

(show prone t 

70 142476 

016501 

142302 

84 : 

MOV 

SPBTBL(R5),R1 

(Set console baud rate 

71 142502 

105737 

007710 


TSTB 

MCONFLG 

(is 44 X set for au;; port? 

72 142506 

100002 



BFi 

94 

(no, sane speeds 

73 142510 

006201 



ASR 

R1 

(else console rate / 4 

74 142512 

006201 



ASR 

R1 


75 142514 

012702 

000010 

?i : 

MOV 

M10, R2 

(index lower display 

76 142520 

004747 

173642 


JSR 

PCtBSPOEC 

(display baud rate 

77 142524 

004767 

173706 


JSR 

PC,K£YGET 

(wait for a Key 

78 142530 

020127 

000010 


CMP 

RlftOlO 

(is it 'Enter*? 

79 142534 

001653 



BEQ 

FNCWN 

(yes, finished 

80 142536 

020127 

000016 


CMP 

R1 ,4016 

(was it a function button? 

81 142542 

103005 



BHIS 

104 

(yes, exit 

82 142544 

012700 

000200 


MOV 

4F.A64X,R0 

(no, toddle aux port baud rate 

B3 142550 

074037 

007710 


XOR 

RO, MCONFLG 

(CONFLG is an even byte 

84 142554 

85 

86 142556 
07 

88 142562 

000750 



BR 

84 

(wait for enter key 

000167 

175562 

10$; 

JMP 

KEYCM1 

(execute function key 

052737 

040000 007706 

nprot:: 

BIS 

♦F.PROTiMFLAGSKturn off protection 

89 142570 

000635 



BR 

FNCDQN 

(do to redister select node 
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1 

2 






.SBTTL 

Console Monitor 


3 









4 





f 

REGISTER USAGE! 


5 





f 


R5 last expression value 

6 





f 


R4 current ten value and scratch current address 

7 





t 


R3 running pointer for input buffer 

8 





I 


R2 pointer and deneral passins to routines 

9 





» 


R1 coiputational scratch 

10 

11 





i 

r 


RO passins to botto* level routines and scratch 

12 

13 





i 

t 

Cold entry point! 


14 





i — 




15 

16 

142572 

012737 

006500 

007746 

CNONi:: nov 

*$UR,M*SP 

! initialize user SP for console aonitor 

17 

142600 

012737 

040100 

007330 


NOV 

♦480*10041 WjMTNPNOD iset default nodes 

18 

142606 

012737 

000004 

007325 


NOV 

IF. MULL’SRASLINf initialize last line flaas 

1? 

142614 

005037 

007630 



CLR 

MBP 

{initialize console buffer pointers 

20 

142620 

105037 

007672 



CLRB 

8*HFP 

idear host buffer pointer also 

21 

142624 

142737 

000007 

007710 


BICB 

*007,8*C0NFLG 

fclear console line flass (but not speed) 

22 

142632 

105037 

007673 



CLRB 

MHSTFLG 

J cl ear host flaas 

23 

142636 

012767 

133000 

035214 


NOV 

♦LIKE INvCONIH 

ihook up console input service routine 

24 

142644 

113700 

007710 



NGVB 

8*C0NFLG,R0 

iset current baud rate 

25 

142650 

052700 

000002 



BIS 

*000002, RO 

ienable proa, baud rate, disable xait interrupt 

2b 

142654 

010037 

177564 



NOV 

R0,HC*XCSR 

j transfer control word to console port 

27 

142660 

004767 

172304 



JSR 

PCiSETAUX 

iset aux port baud rate and disable 

28 

142664 

052737 

002000 

007706 


FIS ' 

#F.KEYPrg#FLAGSlt disable keypad aonitor 

29 

142672 

106427 

000000 



HTPS 

*000 

ienable interrupts 

30 

142676 

012737 

000100 

177560 


NOV 

*0001 00 ,8*C$RCSRi enable console receiver interrupt 

31 

142704 

004767 

170614 



JSR 

PCrCRLF 

istart a new line 

32 

142710 

004767 

170610 



JSR 

PCrCRLF 


33 

142714 

012702 

143052 



NOV 

IGRET.R2 

ipoint to sreetins aessaSe 

34 

142720 

004767 

171042 



JSR 

PC, PRINT 

itype aessage 

35 





;h 




36 






Wan entry point! 


37 

38 





f — 




3? 

142724 

012767 

133000 

035126 

CNONITtiNOV 

»LINEIN,CONIN 

ihook up console input service routine 

40 

142732 

106427 

000000 



NIPS 

*000 

ienable interrupts 

41 

142736 

012737 

000100 

177560 


NOV 

*0001 00,F*C*RCSRi enable console receiver interrupt 

42 

142744 

032737 

004000 

007706 


BIT 

♦F.HOSTrMFLAGS 

5 is host aode enabled? 

43 

142752 

001412 




BED 

1* 

ino, clear host flags to terainate functions 

44 

142754 

012737 

134540 

000120 


NOV 

♦HOSTINrMAUXIN 

ihook up host input service interrupt 

45 

142762 

112737 

000046 

007711 


NOVB 

*046»«AUXFLG 

isave a copy of new AICREG value 

46 

142770 

112737 

000046 

177452 


NOVB 

*046,8*AtCREG 

i reenable aux port receiver interrupt 

47 

48 
4? 

142776 

000402 




BR 

2* 


143000 

105037 

007673 


11! 

CLRB 

8*HSTFLG 

istop host activity 

50 

143004 

032737 

000200 

007706 

24! 

BIT 

*F.SST,8*FLAGSi 

iuere we single stepping? 

51 

143012 

001501 




BED 

CH0N3 

ino, scrap line 

52 

143014 

042737 

000200 

007706 


BIC 

#FiSST,8*FLAGSl 

iclear flag froa (G01 routine 

53 

143022 

004767 

004702 



JSR 

PCrTTPREG 

iyes, display registers 

54 

143026 

013704 

007750 



NOV 

M4PCiR4 

ipoint to next location 

55 

143032 

004767 

012212 



JSR 

PC.TYPADR 

itype address 

56 

143036 

004767 

012126 



JSR 

PCjTYPLOI 

idisasseable next instruction 

57 

143042 

005737 

007466 



TST 

MREPEAT 

iwere we repeating? 
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58 143046 001463 

59 143050 000476 


BEQ CM0N3 ino 

Bfl CM0N4 lues* keep couand line 
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Console 

Honitor 








1 

2 

143052 

076725 

000207 

055207 

GRET! 

.RAB50 

/TEN CONSOLE NONITOR VI. 0 / 


143040 

045710 

051646 

035557 






143064 

070226 

143076 

000000 





3 

143074 

000000 




.WORE 

0 


4 

143074 

001640 

004540 


WHAT! 

• RAD50 

/ WHAT / 


5 

143102 

000000 




.WORD 

0 


6 

143104 

007716 

023132 

001156 

0VERFL! 

.RAD50 

/BUFFER OVERFLOW/ 


143112 

021026 

046557 






7 

8 
9 

143114 

000000 




• WORE 

0 


143120 

004767 

170400 


PRNERRi 

JSR 

PCrCRLF 

.type <CR> <LF> 

10 

143124 

012700 

056007 



NOV 

♦400tl34t007.RO 

.type <BELL> \ 

11 

143130 

004767 

170374 



JSR 

PC.CHROUT 


12 

143134 

004767 

170276 



JSR 

PCiGETBP 

fset running pointer to back pointer 

13 

143140 

004767 

170776 



JSR 

PC. ECHO 

{echo buffer to console to indicate error 

14 

143144 

012700 

000134 



NOV 

♦134.R0 

.type \ <CR> 

15 

143150 

004767 

170354 



JSR 

PC.CHROUT 


14 

143154 

004767 

170344 



JSR 

PC.CRLF 


17 

18 
19 

143160 

000167 

170602 



JHP 

PRINT 

.print error aessade 

20 





i Coaaand error entry point! 


21 





1 — 




22 









23 

143164 

012706 

007462 


CHQN21! 

NOV 

♦STACK. SP 

.we cate here fro* unspecified depth 

24 

143170 

012702 

143076 



NOV 

♦UHAT.R2 

.point to error aessade 

25 

143174 

004767 

177720 



JSR 

PC.PRNERR 

.print erroneous coaaand line and error aessade 

24 

143200 

012700 

000077 



NOV 

♦077.R0 

.type ? <CR> 

27 

143204 

004767 

170320 



JSR 

PC.CHROUT 


28 

29 

30 

143210 

000402 



m 

BR 

CN0N3 


31 





> General error entry! scrap 

rest of coaaand line, terainate host input! 

32 





i— 




33 









34 

143212 

004767 

177702 


error:: 

JSR 

PC.PRNERR 

.print error aessade 

35 

143216 

142737 

000200 

007673 

CNON3!! 

BICB 

♦F. LOAD. MHSTFL6! stop loadinS froa host 

34 

143224 

012706 

007462 


CH0N31! 

NOV 

♦STACK . SP 

!we don't know at which level error occurred 

37 

143230 

005037 

007630 



CLR 

MBP 

.clear both back pointer and forward pointer 

38 

143234 

005037 

007466 



CLR 

MREPEAT 

.don't keep repeating bad coaaand line 

39 

143240 

152737 

000004 

007324 


BISB 

♦F.NULL.MUNFLGfact like line was not eapty 

40 





f++ 




41 





! Fresh coaaand line and repeat entry point! 

42 





!** 




43 









44 

143246 

000337 

007324 


CN0N4! ! 

SWAB 

MLINFLG 

.save old line parsing flags 

45 

143252 

105037 

007324 



CLRB 

ML I NFL G 

! reset line parsing flags for new line 

44 

143256 

004767 

170166 



JSR 

PC. PURGE 

jpurde botloa of buffer, clear running pointer 

47 

143262 

005737 

007466 



TST 

MREPEAT 

.repeat line or proapl for a new one? 

48 

143266 

001403 




BED 

it 

iproapt for a new one 

49 

143270 

005337 

007466 



DEC 

etfiEPEAT 

.count repetitions 

50 

51 

52 

143274 

000543 




BR 

CH0N5 

.and re-execute line 

143276 

113737 

007331 

007330 

It! 

MOVB 

MPERNOD.MTHPNOD .restore peraanent aodes 

53 

143304 

004767 

170214 



JSR 

PC.CRLF 

Jstart a new line 

54 

143310 

012701 

076725 



NOV 

#<24*50+05>*50+15.R1 IRAD50 triplet 'TEH 1 
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55 143314 

004767 

170464 



JSR 

PCtPRINTl 

ityee a sinsle RAB50 triplet 

56 143320 

012700 

020076 



MOV 

♦400t0401076»R0 

(tape > <SPACE> 

57 143324 

004767 

170200 



JSR 

PCiCHROUT 


58 143330 

123703 

007631 


24! 

CMPB 

0»FPfR3 

(see if a character has been typed 

59 143334 

001415 




BED 

34 

rftDr So check host buffer 

6 0 143336 

004767 

170600 


84 : 

JSR 

PC , ECHO 

iecho character to console 

61 143342 

126327 

007467 

000015 


CMPB 

BUFFER-1 <R3)H015 (is last character a <CR>? 

62 143350 

001367 




BNE 

24 

(no» wait for one 

63 143352 

105037 

007324 



CLRB 

MLINFLG 

ireset line flags fro* ECHO 

64 143356 

005003 




CLR 

R3 

iset runnina pointer to beginning of line 

65 143360 

142737 

000001 

007673 


BICB 

♦F.PYTBrMHSTFLGi clear host line byte bucket <“0) flag 

66 243366 

000506 




BR 

CM0N5 

! execute line 

6/ 

68 143370 

105737 

007672 


34! 

TSTB 

MHEP 

(see if we have a character fro* the host 

69 143374 

001755 




BED 

24 

Jnot 3o back and check console 

70 143376 

105737 

007673 



TSTB 

8IHSTFLG 

rare we loading or Just listening 7 

71 143402 

100444 




SKI 

44 

J loading 

72 143404 

132737 

000001 

007673 


BITB 

*F,BYTBiP#HSTFL6!are we ignoring host *essaSes? 

73 143412 

001403 




BED 

94 

ino 

74 143414 

004767 

171324 



JSR 

PCtHGETCH 

tsest 3et character fro* host 

75 143420 

■7/ 

000743 




BR 

24 

land throw it sway 

/o 

77 143422 

004767 

170076 


94! 

JSR 

PC.CRLF 

(start a new line to show *essa3e fro* host 

78 143426 

012701 

032153 



MOV 

♦<M50H7>*50+23>R1 (RAD50 triplet *H0S* 

79 143432 

004767 

170346 



JSR 

PC r PR INTI 

ilype a sinsle RAD50 triplet 

80 143436 

012700 

037124 



MOV 

4400M76F124.RQ 

i*T>’ 

81 143442 

004767 

170062 



JSR 

PC.CHRQUT 

icotplete the header 

82 143446 

105737 

007672 


541 

TSTB 

MHFP 

isee if we have s character 

83 143452 

001411 




BED 

74 

(noi check console for keypress 

84 143454 

004767 

171264 



JSR 

PCrHGETCH 

(get character fro* host buffer 

85 143460 

132737 

000001 

007673 


81TB 

IF.BYTBiBIKSTFLGiare we ignoring host *essaSes? 

86 143466 

001003 




BNE 

74 

iyes> throw character away 

87 143470 

010100 




MOV 

R1»R0 


88 143472 

004767 

170032 



JSR 

PC r CHROUT 

ielse echo it to console 

89 143476 

123703 

007631 


74! 

CMPB 

MFP.R3 

(see if console typed 3 character 

90 143502 

001761 




BED 

54 

4 if nott continue host »essa3e 

91 143504 

005003 




CLR 

R3 

(prepare to re-echo console input 

92 143506 

105037 

007324 



CLRB 

MLINFLG 


93 143512 

Oi 

000671 




BR 

14 

1 redisplay pro»pt and echo buffer asair. 

77 

95 143514 

004767 

171224 


44! 

JSR 

PCtHGETCH 

(get character fro* host buffer 

96 143520 

106427 

000340 



MTPS 

4340 

(block console interrupt for a while 

97 143524 

113702 

007631 



M0V8 

8IFP.R2 

faet console buffer input pointer 

98 143530 

042702 

177400 



SIC 

I177400.R2 

(prevent sian extend 

99 143534 

001003 




BNE 

104 

(we aren't at beginning of line 

100 143536 

120127 

000012 



CMPB 

R1.I012 

(throw away line feeds at beginning Df line 

101 143542 

001407 




BEO 

114 


102 143544 

120227 

000140 


104! 

CMPB 

R2r4140 

(is buffer full? 

103 143550 

103007 




BHIS 

64 

(yest abort load process 

104 143552 

110162 

007470 



MOVB 

RlrBUFF£R(R2) 

(transfer character to console input buffer 

105 143556 

105237 

007631 



INCB 

MFP 

(advance buffer input pointer 

106 143562 

106427 

000000 


114! 

MTPS 

1000 

(restore interrupts 

107 143566 

000660 




BR 

24 

(echo buffer to console 

108 








109 143570 

106427 

000000 


64! 

MTPS 

♦000 

(restore interrupts 

110 143574 

012702 

143104 



MOV 

♦0VFRFLIR2 

(point to error *essaae 

111 143600 

000167 

177406 



JMP 

ERROR 

(and print it 
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Console 

Monitor 







112 








113 





14+ 



114 





i Next coaaand entry point: 


115 





i — 



116 








117 

143604 

004767 

167616 


chons:: jsr 

PCrGETNXT 

rget first aeaningful character 

118 

143610 

000402 



8R 

CN0N6 


11? 








120 

143612 

004767 

167570 


contin::jsr 

PCrGETLCH 

j recover last acauired character 

121 








122 

143616 

005737 

007466 


CHON6 ! i TST 

84REPEAT 

tare we repeating? 

123 

143622 

001004 



BHE 

14 

West so keep last coaaand 

124 

143624 

110337 

007630 


MQVB 

R3f?tBP 

(else throw it away 

125 

143630 

105337 

007630 


DECS 

MBP 


124 

143634 

000337 

007326 


1C SUAB 

BtCURCOM 

tsave old coaaand flags 

127 

143640 

105037 

007326 


CLRB 

MCURCOH 

land initialize thea for next coaaand 

128 

143644 

000402 



BR 

CHON7 


O- 

CM 





;++ 



130 





f Parse top level! 


131 





! — 



132 








133 





.ENABl 

LSB 


134 

143646 

004767 

167554 


comlup: jsr 

PCrGETNXT 

iset next aeaningful character 

135 

143652 

120027 

000015 


CM0N7J CMPB 

R0r*015 

pis it <CR>? 

136 

143656 

001544 



BED 

DOCR 

isesr go to \CR> handler 

137 








13B 

143660 

152737 

000004 

007324 

1C BISB 

4E, NOLL I04LINFLG 1 show that line is not eapts 

13? 

143666 

132737 

000020 

007324 

BITB 

*F. COMM iBtLINFLS; are we in a eoaaent? 

140 

143674 

001364 



BNE 

COMLUP 

taest keep looking for <CR> 

141 

143676 

120027 

000054 


CMPB 

R0.4054 

fis it coaaa? 

142 

143702 

001761 



BED 

COMLUP 

i ignore coaaas at top level 

143 

143704 

120027 

000033 


CMPB 

R0r»033 

ris it <ESC>? 

144 

143710 

001005 



BNE 

24 

rno 

145 

143712 

000402 



BR 

ERR0R2 


146 








147 

143714 

000167 

000354 


44! JMP 

DOEXPR 

ygo to general expression handler 

148 

143720 

000167 

177240 


ERROR25 JMP 

CMON2 


14? 








150 

143724 

120027 

000042 


2C, CMPB 

R0r*O42 

pis character controli spacet or '!'? 

151 

143730 

103773 



BLO 

ERR0R2 

rye st invalid coaaand 

152 

143732 

120027 

000137 


CMPB 

ROitl37 

Jis it above underscore? 

153 

143736 

101370 



BHI 

ERROR2 

tvest invalid coaaand 

154 

143740 

001006 



BNE 

54 

!not an underscore 

155 

143742 

010537 

007336 


MOO 

R5»HSAVEXP 

(execute underscore 

156 

143746 

152737 

000010 

007324 

BISB 

IF.SAVX>04LINFLGrsho« pending underscore 

157 

143754 

000713 



BR 

CHONS 

iiet next coaaand 

158 








15? 

143756 

120027 

000136 


54 : CMPB 

R0.4136 

fis it caret? 

160 

143762 

001010 



BNE 

64 

jno 

161 

143764 

005337 

007756 


DEC 

844ADDK 

! execute caret 

162 

143770 

105737 

007330 


TSTB 

8ITHPH0D 

iare we in byte aode? 

163 

143774 

100703 



BMI 

CM0N5 

ryes > back up a byte 

164 

143776 

005337 

007756 


DEC 

M4ADDR 

ielse back up a whole word 

165 

144002 

000700 



BR 

CM0N5 

idet next coaaand 

166 








167 

144004 

120027 

000134 


64! CMPB 

R0.4134 

iis it reverse slant? 

168 

144010 

001017 



BNE 

74 

rno 
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149 

144012 

104437 

007327 



MIPS 

MLASCON 

fdid the last expression have undefined syibols 

170 

144014 

001010 




FNE 

84 

iaesi refuse setting of the current address 

171 

144020 

010537 

007754 



NOV 

R5'8*4ADDR 

fexecute reverse slant 

172 

144024 

010504 




NOV 

R5.R4 

(get new address 

173 

144024 

004747 

011214 



JSR 

PCrTTPADR 

(type R4 as nuiber or label 

174 

144032 

004747 

011042 



JSR 

PCiTYPLflC 

ftype location addressed by R4 

175 

144034 

000442 




BR 

CN0N5 

1 get next couand 

174 









177 

144040 

012702 

151372 


84! 

NOV 

♦UNDEFX.R2 

ferrori undefined expression 

178 

144044 

000147 

177142 



JKP 

ERROR 


179 









180 

144050 

120027 

000133 


74! 

CNPB 

R0ftl33 

fis it left bracket’ 

181 

144054 

101321 




8HI 

ERR0R2 

fnor invalid couand 

182 

144054 

120027 

000100 



CHPB 

ROrllOO 

fis it alphabetic? 

183 

144042 

101314 




BHI 

44 

fyesi beginning of expression or instruction 

184 

144044 

001715 




BEO 

ERR0R2 

fnof at sidn is invalid couand 

185 








iwe've narrowed RO to the 042 to 077 ranse 

184 

144044 

114001 

155774 



HOVB 

PARANS-040(R0>iRl (Set parsing code 

187 

144072 

042701 

177770 



BIC 

♦177770rRl 

flask out other inforiation 

188 

144074 

004301 




ASL 

R1 

faake it a word index 

189 

144100 

000171 

144104 



JNP 

BPARDSP(Rl) 

fand dispatch accordingly 

190 






iDSABl 

LSB 


191 









192 

144104 

143144 



PARDSP! 

.WORD 

CN0N2 

fO leans invalid couand 

193 

144104 

144274 




.WORD 

BOEXPR 

fl leans set expression or instruction 

194 

144110 

151424 




.WORD 

DOLABL 

!2 leans define label 

195 

144112 

144124 




.WORD 

DOCOHN 

i3 leans start couent 

194 

144114 

151144 




■ WORD 

D0SYH8 

i4 oeans define sylbol 

197 

144114 

144134 




.WORD 

DONVAL 

<5 leans type numerically 

198 

144120 

143144 




.WORD 

CN0N2 

f6 leans valid as operator within expressions 

199 

144122 

144274 




.WORD 

DOEXPR 

f7 leans both 1 and 4 are true 

200 









201 









202 

144124 

152737 

000020 

007324 

DOCOKH! 

BISS 

4F.C0NNt8ILINFLGi indicate we're in a cement 

203 

144132 

000424 




BR 

CHONS 

fand continue 

204 









205 









204 

144134 

004747 

147344 


DONVAL! 

JSR 

PC.CRLF 

ftype last expression numerically 

207 

144140 

014744 

043144 



NOV 

TNPNQD»-<SP! 

fsave flags 

208 

144144 

042747 

000200 

043156 


BIC 

IF.BYTNfTNPNOD 

fiake word lode 

209 

144152 

010501 




NOV 

R5.R1 


210 

144154 

004747 

010714 



JSR 

PCfTYPNHl 


211 

144140 

012447 

043144 



HQV 

(SP)MKPHOD 

f restore flags 

212 

144144 

000147 

177414 



JNP 

CN0N5 


213 









214 









215 

144170 

105737 

007673 


docr:: 

TSTB 

MHSTFLG 

fare we loading fros host’ 

214 

144174 

100424 




BHI 

34 

fyesr suppress <CR> couand feature 

217 

144174 

104437 

007324 



NIPS 

MLINFLG 

! get couand line flags 

218 

144202 

001423 




BEO 

34 

iline is not eiptyt so do nothing 

219 

144204 

104437 

007325 



NTPS 

MLASL1K 


220 

144210 

103427 




BCS 

54 

» last line caused single step> so step again 

221 

144212 

013704 

007756 



NOV 

?44ADDR(R4 

fget current address 

222 

144214 

132737 

000004 

007325 


8ITB 

tF,NULL»B4LASLINfdid last line dump locations’ 

223 

144224 

001004 




BNE 

64 

fnoi so don't advance 

224 

144224 

013704 

007334 



HOV 

MADVADR»R4 

fadvance east last duip 

225 

144232 

010437 

007754 



NOV 

R4.B44ADDR 
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224 144234 

014705 

033535 

44! 

MOV 

-1)R5 


227 144242 

004747 

010734 


JSR 

PC.TYPUN 

itaee a line of locations 

228 144244 

010437 

007334 


MOV 

R4iBIADVADR 

?save next address for subseauent du»p 

229 







230 144252 

005737 

007444 

34! 

TST 

BIREPEAT 

lare we repeating? 

231 144254 

001002 



BME 

44 

lues- so keep conand line 

232 144240 

110337 

007430 


MOVE 

K3p8IBP 

Jncr discard executed eowands 

233 144244 

000147 

174754 

44! 

JMP 

CM0N4 


234 







235 144270 

000147 

003122 

54! 

JMP 

STEP 

i execute single step 
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1 

2 

3 

4 

5 

6 
7 
B 
9 

10 

11 

12 

13 

14 144274 

15 144300 

16 144304 

17 144304 

18 144312 

19 144314 

20 144320 

21 144322 

22 144324 

23 144330 

24 144332 

25 144336 

26 

27 144340 

28 144342 

29 144346 

30 144350 

31 144354 

32 144356 

33 144362 

34 144364 

35 144370 

36 144372 

37 144376 

38 144400 

39 144404 

40 144410 

41 144412 

42 144414 

43 144420 

44 

45 144422 

46 

47 144426 

48 144430 

49 144434 

50 

51 

52 144440 

53 144446 

54 144452 

55 144456 

56 144460 

57 144466 


Module Monitor MACRO V05.00 Sunday 13-Nar-83 04110 PaSe 39 


.SBTTL Parsing Routines 
H 

DOEXPR parses an expression* instruction! directive! or verb* and handles 
it accordingly. If appropriate* expressions are deposited at the current 
location. Note that the old value of R2 (which tay be a pointer to a sy»bol 
fro* the last invocation of DOEXPR) is saved before parsins an expression. 
This is to accoeodate the .ESC directive* whose parsing will change the value 
of R2. The old value is needed for seouences such as <sy»boI> .ESC K . 

The old value of EXPFLG is also saved* for the sa*e reason. 





.ENABL 

LSB 


004767 

000212 

doexpr: 

:jsr 

PC.GENKP 

iset an expression 

120027 

000072 


CMPB 

R0*4072 

iis next character !? 

001453 



BEQ 

144 

iyes* l Snore expression 

120027 

000075 


CMPB 

R0*4075 

iis next character =? 

001450 



BEQ 

144 

iyes* isnore expression 

106437 

007326 


MTPS 

04CURCOM 

ihas R5 been set? 

102010 



BVC 

24 

iyes* not Just a na»e 

106437 

007332 


MTPS 

WEXPFLG 

iwhat is na»e? 

t00063 



BPL 

84 

*p redefined symbol 

102003 



BVC 

94 

(defined user syabol* proceed 

005737 

007706 


TST 

MFLAGS1 

ielse see if we are in PASS1 aode 

100031 



BPL 

34 

iuser defined na»e has no value in PASS2* e: 

010405 


9$: 

MOV 

R4*R5 

iset naae's value 

120027 

000077 

2t : 

CMPB 

R0*»077 

iis next character ’?'? 

001432 



BED 

144 

iyes* do nothins 

120027 

000134 


CMPB 

R0*4134 

*is it \? 

001427 



BEQ 

144 

iyes* do nothins 

120027 

000137 


CMPB 

R0.4137 

iis it .? 

001424 



BEQ 

144 

iyes* do nothins 

120027 

000033 


CMPB 

R0*4033 

iis it <ESC>? 

001421 



BEQ 

144 

iyes* do nothins 

106437 

007324 


MTPS 

WLINFLG 

ihas underline been executed? 

100420 



BMI 

64 

iyes* dukp RAM locations 

004767 

010120 


JSR 

PCtADRCHl 

ichecB. if odd address or not in user RAM 

105737 

007330 


TSTF 

WTMPM0D 

iare we in byte »ode? 

100406 



BMI 

44 

iyes 

010514 



MOV 

R5rSR4 

ideeosii data word 

005237 

007756 


INC 

844ADBR 


000403 



BR 

54 


000167 

176536 

341 

JHF 

CM0N2 


110514 


441 

MOVE 

R5*§R4 

(deposit byte of data 

005237 

007756 

54: 

INC 

M4ADBR 


000167 

177152 

144! 

JMP 

C0NTIN 

i recover last character* parse next coktand 


142737 

000010 

007324 

64! 

BICB 

4F.SAVX, WLINFLG 

013704 

007336 



MOV 

MSAVEXP*R4 iSet startins address 

004767 

010524 


74: 

JSR 

PC*TYPLIN idukP a line of locations 

001366 



ii4: 

BNE 

144 

132737 

000100 

007330 

104! 

BITB 

♦F.INSTiBiTMPMODiavoid typinS duplicate addresses 

001771 




BEQ 

74 
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58 144470 

004767 

010512 


JSfi 

PC f TYPLIN+4 


59 144474 

000770 



BR 

lit 


60 

61 144476 

102403 


8»! 

BVS 

124 

!is a directive or verb 

62 146500 

103317 



BCC 

91 

!is R0( x Blr etc. 

63 144502 

000167 

005500 


JMP 

GETIMS 

ielse is an instruction 

64 

65 144506 

000167 

002460 

1241 

JKP 

DOVERB 

{handle directives and verbs 

66 




.DSABL 

LSB 



67 
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1 

2 

3 

4 

5 

6 

7 144512 

8 144S20 
? 

10 144522 

11 144526 

12 144532 

13 144540 

14 144542 

15 144546 

16 144550 

17 144554 

18 144556 

19 144562 

20 144564 

21 144570 

22 144574 

23 144600 

24 144602 

25 144606 

26 144610 

27 144614 

28 144616 

29 144622 

30 144624 

31 144630 

32 144632 

33 144636 

34 144640 

35 144644 

36 144646 

37 144652 

38 144656 

39 144662 

40 144664 

41 144666 

42 144670 

43 144674 

44 144676 

45 

46 144700 

47 144702 

48 144710 

49 144714 

50 144716 

51 

52 144720 

53 144724 

54 144730 

55 144734 

56 144736 

57 144742 


GETEXP parses a whole expression and returns its value in R5. 

GEMEXP parses an expression or recognizes an instruction or sy*bol, 





■ ENABL 

LSB 


152737 

000002 

007326 

GEMEXP! iBISB 

♦F.VALUiMCURCOMiset flad to allow non-valued objects 

000402 



BR 

7t 

isuch as undefined suibolst directivest etc. 

004767 

000452 


GETEXP! 1 JSR 

PCfEXIMIl 

initialize and set valued expression 

005037 

007332 


74! CLR 

Q4EXPFLG 

(clear level counter and ter* flags 

152737 

000004 

007326 

BISB 

4F.UNDFf?4CURCQHtclear undefined expression flad 

005004 



GETEX1! CLR 

R4 

(initialize ter* register 

120027 

000053 


CHPB 

R0.4053 

iis it 4? 

001464 



BEQ 

GETOPV 

iyest accept operator 

120027 

000055 


CHPB 

ROf 4055 

iis it -? 

001461 



BEQ 

GETOPV 


120027 

000043 


GETERM! 1CMPB 

ROr 4043 

iis it 4? 

001004 



BNE 

It 


004767 

000402 


JSR 

PCfEXINIT 

iset valued expression 

004767 

166632 


JSR 

PCiGETNXT 

fdet next character 

120027 

000074 


It! CHPB 

ROf 4074 

(is it <? 

001522 



BEQ 

LPAREN 

fgesr do left parenthesis 

120027 

000133 


CHPB 

R0f4133 

iis it [? 

001517 



BEQ 

LPAREN 

iyesf do left parenthesis 

120027 

000047 


CMPB 

R0f4047 

i is it '? 

001003 



BNE 

3t 

ino 

004767 

001236 


JSR 

PCfGETLIT 

(parse literal ter* 

000436 



BR 

GETOPV 

(force valued expression and get operator 

004767 

007526 


3t! JSR 

PDtNUHCH 

iis it nu»eric? 

100403 



BMI 

2t 

ino 

004767 

000450 


JSR 

PCtGETNMB 

iset nu»her 

000430 



BR 

GETOPV 

i force valued expression get operator 

004767 

007436 


2t! JSR 

PC t RAUCH 

iis it RAD50 character? 

100476 



BMI 

13t 

inof illegal character 

004767 

000576 


JSR 

PCfGETNAM 

i parse na*ed object 

106737 

007332 


MFPS 

04EXPFLG 

isave condition flass 

106437 

007332 


MTPS 

B4EXPFLG 

i recover actual values 

100406 



BMI 

St 

(user defined sy*bol or undefined na»e 

102446 



BVS 

ENDEXP 

ia directive or verbi try to exit 

103016 



BCC 

GETOFR 

(predefined sskbalf get operator 

106437 

007326 


MTPS 

84CURCOH 

iis this a valued expression? 

102442 



BVS 

ENDEXP 

ino i we have an instruction; try to exit 

000412 



BR 

GETOPR 

iuse base value of instruction as datat get op. 

102011 



8t! BVC 

GETOPR 

(proceed if user sy*bol if defined 

142737 

000004 

007326 

BICB 

4F.UNBF iBtCURCQMfShou we have encountered an undefined sy»bol 

005737 

007706 


TST 

84FLAGS1 

rare we in PASS1? 

100032 



BPL 

ENDEXP 

ino; don't allow undefined swbol in expression 

000402 



BR 

GETOPR 

iyesr proceed with expression 

004767 

000246 


GETOPV !! JSR 

PCfEXINIT 

(initialize data expression 

004767 

166456 


GETOPRUJSR 

PCtGETLCH 

i recover last character 

120027 

000076 


CMPB 

ROf 4076 

iis it >? 

001506 



BEQ 

RPAREM 

Jyesf do right parenthesis 

120027 

000135 


CMPB 

ROf 4135 

ris it 1? 

001507 



BEQ 

FPAREN 

iaesr do right parenthesis fetch 
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'Ss.WViSV 

mi 

mv\ 

5m 


Sv. 

59 144750 

103412 


BL0 

64 

lyes, not an operator 

60 144752 

120027 

000060 

CMPB 

R0.406C 

iis it above /? 

41 144754 

103007 


BHIS 

64 

iyes. not an operator 

42 144740 

116001 

155774 

MOVB 

PARAMS-040(RO).R1 iget parsing code 

43 144744 

042701 

177770 

BIC 

1177770. R1 

itask out the garbage 

44 144770 

020127 

000006 

CMP 

R1.46 

iis it an operator? 

45 144774 
44 

47 144774 
40 

69 145002 

103053 


BHIS 

DOOPER 

iyes, do operator 

004767 

000216 

641 JSR 

PC.EXDODP 

ino *ore operators, but do previous one 

105737 

007333 

endexp: tstb 

BILEVEL 

iare we at top level? 

70 145006 

001015 


8NE 

134 

ino, error 

71 145010 

106437 

007326 

MTPS 

MCURCGM 

iis expression supposed to be valued? 

72 145014 

102410 


BVS 

54 

.not necessarily 

73 145016 

106437 

007332 

MTPS 

MEXPFLG 

iwas ter» valued? 

74 145022 

100401 


BMI 

94 

ino, but it was user defined 

75 145024 

102406 


Bys 

134 

ino, error 

76 145024 

102003 


?»: bvc 

54 

iwas valued, no problee 

77 145030 

005737 

007706 

1ST 

BIFLA6S1 

iare we in PASS1? 

70 145034 

100101 


6FL 

124 

ino, undefined syibol is not allowed 

79 145036 

80 

81 145042 

82 

83 145044 

000167 

166344 

541 JMP 

GETLCH 

iget last character back in RO 

000167 

176116 

134: JMP 

CM0N2 

ishow error 

020627 

007410 

LPAREN! CMP 

SP.4B0TTQM+1Q.+22.42. iis there root to recurse? 

84 



i(that 

ues 5 words for future JSRs. 11 for interupts, and I safety) 

85 145052 

103773 


BID 

134 

ino, parenthesis too deep 

84 145054 

004767 

000112 

JSR 

PC.EXINIT 

iforce upper expression to be valued 

87 145060 

010546 


MOV 

R5.-(SP) 

isave accu»ulator 

88 145062 

113746 

007343 

MOVB 

MOPERAT.'iSP) 

iand previous operator 

89 145066 

105237 

007333 

INCB 

BILEVEL 

ishow we are going deeper 

90 145072 

004767 

000102 

JSR 

PC.EXINI1 

{initialize accu*. and operator for next level 

91 145076 

004767 

166324 

JSR 

PC.GETNXT 

iget first character of nested expression 

92 145102 

004767 

177432 

JSR 

PC.GETEX1 

iget value of nested expression 

93 145106 

010504 


MOV 

R5.R4 

i nested value becotes operand 

94 145110 

112637 

007343 

MOVB 

(SPH.SIGPERAT 

i recover operator 

95 145114. 

012605 


MOV 

(SPH.R5 

iand accuiulator 

94 145116 

004767 

166304 

JSR 

PC.GETNXT 

iget character after right Paren 

97 145122 
90 

99 145124 

000700 


68 

GETOPR 

iand look for next operator 

004767 

000042 

hooper: jsr 

PCiEXIKIT 

.force valued expression 

100 145130 

004767 

000064 

JSR 

pc.exboop 

(execute previous operator 

101 145134 

004767 

166246 

JSR 

PC, GETLCH 

iget new operator 

102 145140 

110037 

007343 

MOVB 

RO.B40PERAT 

istore it 

103 145144 

004767 

166256 

JSR 

PC.GETMXT 

iget next character 

104 145150 

000602 


BR 

GETESM 

ilook for a ter* 

105 

106 145152 

105337 

007333 

rparen: decb 

BILEVEL 

iare we at toe level? 

107 145156 

100731 


BMI 

134 

iyes. too »any right parenthesis 

108 145160 

109 

000417 


BR 

EXDODP 

ido last operator inside parenthesis and return 

110 145162 

004767 

177764 

eparen: jsr 

PC, RPAREN 


111 145166 

011505 


MOV 

BR5.R5 

ido a fetch 

112 145170 

000207 


RTS 

PC 


113 

114 145172 

106437 

007326 

EX1NIT! MTPS 

BICURCOH 

.has expression already been initialized? 
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115 145176 

102007 



BVC 

44 

lues 

116 145200 

112737 

000053 

007343 

EXINIi: M0V8 

♦053.M0PERAT 

iset t as default operator 

117 145206 

005005 



CLR 

R5 

.clear expression accumulator 

118 145210 

142737 

000002 

007326 

8ICB 

♦F.VAlU.MCURCQMishow expression is valued 

11? 145216 

000207 



44! RTS 

PC 


120 







121 145220 

106437 

007326 


EXD00P1 MTPS 

MCURCOM 

.if expression is valued, do operator 

122 145224 

102774 



BVS 

44 

!not valued 

123 145226 

113701 

007343 


MOVB 

M0PERAT.R1 

(Set operator 

124 145232 

006301 



ASL 

R1 

.make a word index 

125 145234 

000171 

145146 


JMP 

80PRTBl-t02<Rl) 

.execute operator 

126 







127 145240 

012702 

151372 


124! MOV 

*UNDEFXtR2 

ipoint to undefined expression eessase 

128 145244 

000167 

175742 


JMP 

ERROR 

.show error 

12? 




. DSABL 

LSB 


130 







131 145250 

152130 



OPRTBL! .WORD 

10GCR 

if 

132 145252 

143164 



.WORD 

CM0N2 

i‘ 

133 145254 

143164 



.WORD 

CM0N2 

il 

134 145256 

143164 



.WORD 

CH0N2 

ii 

135 145260 

143164 



.WORD 

CM0M2 

12 

136 145262 

152134 



.WORD 

IGGAMD 

il 

137 145264 

143164 



.WORD 

CM0M2 

i ' 

138 145266 

143164 



.WORD 

CM0M2 

i( 

13? 145270 

143164 



.WORD 

CN0N2 

i) 

140 145272 

152142 



.WORD 

MULTIP 

it 

141 145274 

152154 



.WORD 

ADDIT 

it 

142 145276 

143164 



.WORD 

CM0M2 

i t 

143 145300 

152160 



.WORD 

SUBTR 

.- 

144 145302 

143164 



.WORD 

CM0N2 

i , 

145 145304 

152164 



.WORD 

DIVIO 

;/ 
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1 

2 

3 

4 

5 

6 145306 005303 

7 145310 010346 

8 145312 004767 

9 145316 004767 

10 145322 100373 

11 145324 012603 

12 145326 005001 

13 145330 120027 

14 145334 001427 

15 145336 004767 

16 145342 100402 

17 145344 000167 

18 

19 145350 004767 

20 145354 004767 

21 145360 100410 

22 145362 102770 

23 145364 162700 

24 145370 006301 

25 145372 006301 

26 145374 006301 

27 145376 060001 

28 145400 000763 

29 

30 145402 005303 

31 145404 004767 

32 145410 010104 

33 145412 000207 

34 

35 145414 004767 

36 145420 004767 

37 145424 100767 

38 145426 162700 

39 145432 006301 

40 145434 010146 

41 145436 006301 

42 145440 006301 

43 145442 062601 

44 145444 060001 

45 145446 000762 
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i+t 

} GETNhB parses a number and returns all condition flads lowered, 
r— 



GETHMBllDEC 

R3 



MOV 

R3HSP) 

166000 

It'. 

JSR 

PC.GETCH 

007034 


JSR 

PC.MUHCH 



BPL 

14 



MOV 

(SR)k)R3 



CLR 

R1 

000056 


CMPB 

R0.4056 



BE0 

24 

006740 


JSR 

PC.RADCH 



8MI 

34 

175614 

4*: 

JMP 

CH0H2 

165742 

3$: 

JSR 

PC.GETCH 

006776 


JSR 

PC.NUMCH 



BMI 

54 



8VS 

44 

000060 


SUB 

4060 iRO 



ASL 

R1 



ASL 

R1 



ASL 

R1 



ADD 

ROiRl 



BR 

34 


5» : 

DEC 

R3 

166016 

6tt 

JSR 

PC.GETNXT 



MOV 

RlrR4 



RTS 

PC 

165676 

2»: 

JSR 

PC.GETCH 

006732 


JSR 

PC.HUMCH 



BMI 

64 

000060 


SUB 

4060.RC 



ASL 

R1 



MOV 

Rli-(SP) 



ASL 

R1 



ASL 

R1 



ADD 

(SP1+.R1 



ADD 

ROrRl 



BR 

24 


fsave runnind pointer to peek ahead 


fis it 0 throudh 97 

fyes. wait for first non-numeric character 
fdo back to bedinnind of number 

fis first non-numeric character a period? 

•yes. parse a deciial nukber 

fis it alphabetic? 

fno. parse an octal number 

filledah label bedins with a nuiber 


fis it 0 throudh 7 or 8 throudh 9? 
fnoT end of nu«ber 

!8 and 9 are illedal in octal nuibers 
faake it BCD 


f accumulate didits 
fset next didit 


fdet character after nuiber 
fstore value of nuiber 


ftrailind decimal point 


i accumulate didits 
fdet next didit 
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1 

2 

3 

4 

5 
A 

7 

8 

9 

10 
11 
12 

13 

14 

15 
1A 

17 

18 

19 145450 

20 14545A 

21 14S4A0 

22 1454A4 

23 145470 

24 145474 

25 14547A 
2A 145502 

27 145504 

28 145510 

29 14551A 

30 145520 

31 145524 

32 145530 

33 145534 

34 14553A 

35 145542 

36 145544 

37 145550 

38 145554 

39 145556 

40 

41 145560 

42 145544 

43 145570 

44 145576 

45 145600 

46 145604 

47 145410 

48 145612 

49 145616 

50 

51 145622 

52 145624 

53 145630 

54 145632 

55 145636 

56 145640 

57 145644 


+t 

GETNAM parses a naie and converts it into RAD50 at locations TBLTflP and 
TBLTGP+2* If the nate has a corresponding value. it is placed in R4. 

R2 is an index to where the na»e is stored. It can index either the RAB50 
table in ROM for predefined syibals. or the user syibol table. GETNAM 
returns condition flags to indicate these options as follows! 

V=1 leans the naie has no value 

N=1 leans the naie is user defined (not predefined) 

C=1 leans the naie is a inetonici directive, or verb 

N=0i V=0. C=0 leans that the naie is ROt 5P. PC. Bit URi etc. 

N-0* V=0» C=1 leans that the naie is an instruction 

N=0i V=li C=1 leans that the naie is directive or verb 

N=1 i 9-1 leans that the naie is an undefined syibol 

N=l. V=0 leans that the naie is a user ssibol 





f 

.enabl 

LSB 


112737 

000003 

007341 

GETNAM! iMOVB 

43.MCQUNT2 


005001 




CLR 

R1 


004767 

006732 



JSR 

PC.ASCRAD 

i convert ASCII in RO to RAB50 in Rl 

004767 

145626 



JSR 

PC.GETCH 

.get next character 

004767 

006606 



JSR 

PC) RAICH 

! is it a legal RAB50 character? 

100431 




BMI 

24 

jno. end of naie 

105337 

007341 



DECS 

MC0UNT2 


001366 




BMC 

14 


010137 

007320 



MOV 

Rl.MTBLTBP 


112737 

000003 

007341 


M0VB 

43.MC0UNT2 


005001 




CLR 

R1 


004767 

006672 


3»; 

JSR 

PC.ASCRAD 


004767 

165566 



JSR 

PC.GETCH 


004747 

006546 



JSR 

PC.RADCH 


100421 




BMI 

64 


105337 

007341 



DECB 

B4C0UNT2 


001366 




BNE 

34 


004767 

165546 


4t: 

JSR 

PC.GETCH 

.discard all characters after 4 

004767 

006524 



JSR 

PC.RADCH 

lit character still part of naie? 

100373 




BPL 

44 

.yes 

000412 




BR 

54 


004767 

000244 


24! 

JSR 

PC.PADRAD 

.pad Rl with spaces 

010137 

007320 



MOV 

R1.MTBLT0P 

.store first word of naie 

012737 

000003 

007341 


MOV 

43.MC0UNT2 


005001 




CLR 

R1 


004767 

000244 


64*. 

JSR 

PC.PADRAD 


010137 

007322 


54! 

NOV 

R1.04TBLTOP42 


005303 

■* 



DEC 

R3 

.get next leanindful character 

004767 

165610 



JSR 

PC.GETNXT 


013700 

007320 



MOV 

8tTBLTDP.R0 

iR0> Rl contain converted naie 

005002 




CLR 

R2 

>CD»P3re naie to predefined ones 

020062 

156142 


104! 

CMP 

R0.DSYHS1R2) 


001011 




BNE 

114 


020142 

156144 



CMP 

R1.DSYMS+2(R2> 


001414 




BEQ 

PDSVAL 

.Set value of predefined syibol 

020127 

006200 



CMP 

Rl. 450450402 

.light this be a byte lode meionic 7 

001003 




BNE 

114 

.no 
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58 145644 

005762 

156144 


1ST 

DSYMS+2(R2) 

(and is na»e the sane without trailing "B 1 ? 

59 145652 

001406 



BED 

PDSVAL 

iyesf handle byte »ode case 

40 145654 

022222 


lii: 

CMP 

<R2)+r <R2)+ 

> advance to next na»e 

61 145656 

020227 

000770 


CMP 

R2>*T0PNAM 

(end of table? 

62 145662 

103760 



BLO 

10$ 

(not yet 

63 145664 

64 

65 145670 

000167 

003670 

2it: 

JMP 

GETSTM 

(no natch to predefined ssibols 

020227 

000054 

pdsval: 

:cmp 

R2 r *DSYMUR-DSYHS 5 now get symbol's value in R4 

66 145674 

103401 



BLO 

13$ 

>R0 through . 

47 145676 

002005 



BCE 

14$ 

>B1 or higher 

68 145700 

006202 


13$: 

ASR 

R2 

(take a word index 

69 145702 

016204 

007732 


MOV 

$R0(R2) rR4 

!R0 through . 

70 145706 

006302 



ASL 

R2 


71 145710 

72 

73 145712 

000405 



BR 

15$ 


020227 

0001 00 

14$: 

CMP 

R2i*BIRVRB-DSYMS 

74 145714 

103004 



BH1S 

7$ 

(BASIC or hi^ier 

75 145720 

016204 

007700 


MOV 

BRKFIL-<BSYHUR+4-DSYHSXR2)>R4 (B1 through B4 

74 145724 

000257 


15$: 

CCC 


(flag a predefined symbol 

77 145726 

78 

79 145730 

000207 



RTS 

PC 

(and return 

020227 

000300 

7$: 

CMP 

R2i$CNNEHS-BSYHS 

80 145734 

103003 



BHIS 

17$ 

(CLC or higher 

81 145736 

000277 



see 


(flag a directive Dr verb 

82 145740 

000250 



CLN 



83 145742 

84 

85 145744 

000207 



RTS 

PC 

(and return 

006202 


17$: 

ASR 

R2 


84 145746 

016204 

155440 


MOV 

CBASES-«CMNEMS-DSYMS>/2XR2).R4 (get value of *ne»onic 

87 145752 

006302 



ASL 

R2 


88 145754 

020227 

000340 


CMP 

R2>*HNEMS-BSYMS 


89 145760 

103003 



BHIS 

18$ 

(HALT or higher 

90 145762 

012702 

000064 


MOV 

*HNCCC-MNEMSiR2 

(index ineaonic CCC 

91 145766 

92 

93 145770 

000421 



BR 

19$ 


020127 

006200 

is$: 

CMP 

R1 >*50*50402 

(byte *ode nate? 

94 145774 

001014 



BNE 

20$ 

(no 

95 145776 

020027 

075131 


CMP 

RO>*<23*50L27>*50+01 (SHAB «ne»onic? 

96 146002 

001411 



BEG 

20$ 

(yesi not byte node 

97 146004 

006202 



ASR 

R2 


98 146006 

006202 



ASR 

R2 


99 146010 

105762 

155744 


TSTB 

PARAMS-«MNEMS-BSYHS>/4XR2) instruction legal in byte »o< 

100 146014 

100323 



BPL 

21$ 

(no 

101 146016 

006302 



ASL 

R2 


102 146020 

006302 



ASL 

R2 


103 146022 

052704 

100000 


BIS 

♦100000>R4 

(adjust opcode to byte »ode 

104 146026 

162702 

000340 

20$: 

SUB 

*HNEMS-BSYHSfR2 

(adjust index to instruction table 

105 146032 

000257 


19$: 

CCC 



106 146034 

000261 



SEC 


(flag an instruction 

107 144036 

000207 



RTS 

PC 


108 




.DSABL 

LSB 


109 

110 146040 

012700 

000040 

PADRl! 

MOV 

*040 >R0 


111 146044 

004767 

006346 


JSR 

PCrASCRAB 


112 146050 

105337 

007341 

pabrad; 

BECB 

MCQUNT2 

(routine to pad RAD50 triplet with spaces 

113 146054 

001371 



BNE 

PADRl 


114 146056 

000207 



RTS 

PC 
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1 

2 








3 

4 




i GETUT parses ASCII literals. 

r — 

5 

6 146060 

004767 

165326 


6ETLITI 5 JSR 

PC.GETCHC 

(get next character* don't fold case 

7 146064 

120027 

000015 



CKPB 

R0-4015 

(is it <CR> 7 

8 146070 

001002 




BNE 

It 

ino 

? 146072 
10 

000167 

175066 



JHP 

CHGN2 

(error* no character on line 

11 146076 

010004 



it: 

KOV 

R0*R4 

(store value 

12 146100 

13 

000167 

165322 



JKP 

GETNXT 

(Set next character* return 

14 

15 146104 

110137 

007330 


sethod: 

NOVB 

RhMTKPKOD 


16 146110 

004767 

165312 



JSR 

PC i GETNXT 


17 146114 

005303 




DEC 

R3 


18 146116 

105737 

007330 



TSTB 

MTHPHGB 


19 146122 

100403 




BKI 

It 


20 146124 

042737 

000001 

007756 


BIC 

♦lfMtADDR 

(fix address when leaving byte tode 

21 146132 

120027 

000015 


it: 

CHPB 

R0,I015 

(is »ode couarid last coaiand on line 7 

22 146136 

001106 




BNE 

ECON 

(no 

23 146140 

113737 

007330 

007331 


KDV8 

MTHPKODtBtPERHOIi (yes* set per.anent .odes 

24 146146 

25 

000502 




8R 

ECON 


26 146150 

152701 

000002 


eabs: : 

BIBB 

♦F.ABSiRl 


27 146154 

28 

29 

000753 




BR 

SETHOD 


30 146156 

012700 

000020 


ECANl : 

KOV 

I20*R0 


31 146162 

105060 

007757 


it: 

CLRB 

BRKFlL-l(RO) 


32 146166 

077003 




SOB 

ROrlt 


33 146170 

005037 

007754 



CLR 

MWATCH 


34 146174 

000467 




BR 

ECON 


35 

36 

37 146176 

142701 

000100 


ebyt:: 

BICB 

IF.1NST*R1 


38 146202 

152701 

000200 



B1SB 

IF.BYTN.R1 


39 146206 

40 

000736 




BR 

SETKOO 


41 146210 

142701 

000200 


eins:: 

BICB 

♦F.BYTK.R1 


42 146214 

152701 

000100 



BISB 

IF. INST *R1 


43 146220 

44 

000731 




BR 

SETHOB 


45 146222 

012737 

007320 

007462 

ECLR'.l 

KOV 

♦TBLTDPiBITBLBOTiiove syible table pointer to e*nts position 

46 146230 

47 

000451 




BR 

ECON 


48 146232 

132737 

000002 

007327 

edel:: 

BITB 

♦F.VALU»MLASCOH»was last 'cowand* valued? 

49 146240 

001447 



EDELli 

BEO 

EERR 

(yes* not just a na.e 

50 146242 

106437 

007332 



KTPS 

PIEXPFLG 


51 146246 

100044 




BPL 

EERR 

(can't delete predefined sy.bols 

52 146250 

102443 




BVS 

EERR 

(can't delete a forward reference 

53 146252 

162702 

000006 



SUB 

I6iR2 

(back up to specified entry 

54 146256 

004767 

003620 



JSR 

PC.TYPSYK 

(type current value before deleting 

55 146262 

004767 

003406 



JSR 

PCiDELSYK 

(delete entry 

56 146266 

57 

000432 




BR 

ECON 
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SB 

146270 

142701 

000300 


enuk:: 

BICB 

♦F.INSTtF .BYTHiRl 

59 

60 

146274 

000703 




8R 

SETNOD 


61 

62 

146276 

010537 

007466 


EREP; ! 

HOV 

K5» M REPEAT 

lenable repeated execution 

63 

146302 

110337 

007630 



HGV8 

R3.MBF 

fact like s new line starts after <£5C> N 

64 

65 

66 

146306 

000167 

174734 



JNP 

CHDN4 

(execute rest of line repeatedly 

146312 

142701 

000002 


esym: : 

BICB 

♦F.ABSjRI 


67 

68 

146316 

000672 




BR 

SETHOD 


69 

70 

146320 

004767 

165102 


eext:: 

JSR 

PC.GETNXT 

iaet character after 1 

71 

146324 

004767 

176172 



JSR 

PCfGETEXP 

iparse transfer address 

72 

73 

74 

146330 

000115 




JNP 

8RS 


146332 

016746 

040772 


ereb; : 

740V 

TNPNODi-(SP) 

Ifor bste »ode 

75 

146336 

042767 

000200 

040764 


BIC 

♦f.bytntThpnod ; 

76 

146344 

004767 

003360 



JSR 

PCrTYPREG 

(type contents of registers and watchpoint 

77 

146350 

012667 

040754 



HOV 

(SPHdHPMOB 

irestore flaSs 

7B 

146354 

000167 

175224 


ecoh: 

JNP 

CHONS 


79 

60 

81 

146360 

000167 

174600 


eerr: 

JNP 

CN0N2 


146364 

106437 

007324 


ehov:: 

HTPS 

B4LINFLG 

fsee if underline has been executed 

82 

146370 

100373 




BPl 

EERR 

■ it hasn't— error— kissing paraaeter 

83 

146372 

010502 




NOV 

R5»R2 

fdet final address of source »e*ory block 

84 

146374 

013701 

007336 



HOV 

8*SAVEXP,R1 

ijet starting address of source 

85 

146400 

142737 

000010 

007324 


BICB 

*F.SAVX(MLINFLG!show that saved expression has been used 

86 

146406 

005737 

007706 



TST 

MFLAGS1 

!are we in PASS1 *ode? 

87 

146412 

100760 




BN I 

ECDN 

!yes( don't execute love 

88 

146414 

020201 




CNP 

R2.R1 

fis final address below starting address? 

B9 

146416 

103760 




BLO 

EERR 

iyes( show error 

90 

146420 

105737 

007330 



TSTB 

MTHPHQB 

rare we in byte iode 7 

91 

146424 

100404 




BN1 

It 

iyes 

92 

146426 

042701 

000001 



BIC 

♦lrRl 

lelse force starting address to even boundary 

93 

146432 

052702 

000001 



BIS 

♦1iR2 

land final address to odd boundary 

94 

146436 

013704 

007756 


n; 

NOV 

?*4ADDR(R4 

(Set starting address of destination block 

95 

146442 

060204 




ADD 

R2»R4 

(calculate final address fro* length of source 

96 

146444 

160104 




SUB 

R1.R4 


97 

146446 

010400 




NOV 

R4» RO 

isave result for later 

98 

146450 

105737 

007330 



TSTB 

MTNPHOD 

Fare we in byte *ode? 

99 

146454 

100401 




BHI 

21 

lyes 

100 

146456 

005304 




PEC 

R4 

iadjust result for previous BIC and BIS 

101 

146460 

004767 

006044 


2t: 

JSR 

PCfABRCH2 

icheck that final destination address is legal 

102 

146464 

004767 

006034 



JSR 

PCfADRCHl 

Iget starting destination address and check it 

103 







inow see if destination addresses straddle protected RAH 

104 

146470 

020027 

006500 



CNP 

ROtttUR 

iis final addr below lower instance of erot RAH 

105 

146474 

103415 




BIO 

3t 

iyes( destination range OK 

106 

146476 

020427 

020000 



CNP 

R4. *20000 

ris start addr above upper instance of erot RAN 

107 

146502 

103012 




BHIS 

3t 

Jyesr destination range OK 

108 

146504 

020427 

010000 



CNP 

R4 i*10000 

(does destin overlap lower instance of prot RAH 

109 

146510 

103403 




BLO 

4$ 

!yes( range is unacceptable 

110 

146512 

020027 

020000 



CNP 

ROf *20000 

iis final addr below upper instance of erot RAH 

111 








ithis is a trick test — we know RO is not 

112 








iwithin the range 4UR+10000-17777 fro* ADRCM2 

113 

146516 

103404 




BLO 

34 

ryesi range doesn't overlap upper instance 

114 

146520 

012702 

154476 


44! 

HOV 

*US£RAft(R2 

(point to user RAN error *esssle 
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115 144524 
114 

117 144530 

118 144532 
11V 146534 

120 144534 

121 144540 

122 146542 

123 

124 146544 

125 146546 

126 144550 

127 144552 

128 146554 
12V 146554 

130 

131 146560 

132 144544 

133 146546 

134 146572 

135 144400 

136 146404 

137 144410 

138 144612 

139 146414 

140 146620 

141 144424 

142 146626 

143 146632 

144 144436 

145 146442 
144 146446 

147 146652 

148 146656 
14? 144440 

150 144464 

151 146444 

152 144470 

153 144472 

154 146676 

155 144700 
154 146704 

157 144710 

158 144712 
15? 144714 
140 144720 

161 146722 

162 146724 

163 146730 
144 144732 
165 146734 

164 

147 146740 
168 146742 
16? 146744 

170 144744 

171 146752 


000147 174462 


JNP 

ERROR 

Ipfint error lessa* 

020401 

3»: 

CMP 

R4.R1 

Inow see if destination block is above or below 

101004 


BHI 

54 

fsource — above »eans use backward transfer 

112124 

645 

MOVB 

(R1)+>(R4)4 

(else do forward transfer 

020102 


CMP 

R1.R2 


101775 


BIOS 

64 

(do entire block 

000704 


BR 

ECON 


005202 

545 

INC 

R2 

(adjust pointers for autodecreient 

005200 


INC 

RO 


114240 

745 

MOVB 

-(R2)i-(R0) 

(perfori backward transfer 

020201 


CMP 

R2.R1 


101375 


BHI 

74 

Ido entire block 

000476 


BR 

ECON 



106437 

007324 

EFNB5! 

NTPS 

84LINFLG 

Isee if underline has been executed 

100275 



BPL 

EERR 

lit hasn't— error— nissind paraietsr 

010537 

007334 


MOV 

R5»P4AB0AItR 

Isave upper search ran* liait 

142737 

000010 

007324 

BICB 

♦F.SAOXfRtLINFLGIshou that saved expression has been used 

004767 

164622 


JSR 

PCiGETNXT 

1 Set character after F 

004767 

175712 


JSR 

PCfGETEXP 

iset value ta be searched for 

024646 



CMP 

-(SP),-(SP) 

(take space for two scratch location on stack 

010516 



MOO 

R5* (SP) 

Isave value to be searched for on stack 

005066 

000002 


CLR 

2(SP) 

(initialize co»Ple»erit of search »ask. to zero 

120027 

000137 


CHPB 

ROi 1137 

(is next character an underscore 7 

001010 



BNE 

14 

Inot optional task paraieter not present 

004767 

164574 


JSR 

PCuGETNXT 

(det character after underscore 

004767 

175664 


JSR 

PC.GETEXP 

!*t search task 

010566 

000002 


MOV 

R5.2ISP) 

Istore it on stack 

005146 

000002 


COM 

2(SP> 

Icoieleient »ask 

013704 

007336 

it: 

MOO 

MSA0EXPtR4 

i*t startind address of search rande 

105737 

007330 

2t: 

TSTB 

B4THPM0B 

(are we in byte tode 

100430 



BMI 

44 

lyes* perfori bytewise search 

042704 

000001 


BIC 

41 >R4 

(for word search) take sure address is even 

011401 



NOV 

RR4.R1 

I Set a word 

011600 



MOO 

(SP).RO 

Idet search value 

074001 



XOR 

R0»R1 

Icoipare values 

046601 

000002 


BIC 

2 ( SP ) » R 1 

lidnore bits that are tasked out 

001005 


5t: 

BNE 

34 

Ino latch 

004767 

006344 


JSR 

PCtTYPADR 

Itype address of latched location 

004767 

006204 


JSR 

PCiTYPLOl 

Ityee contents) but not as an instruction 

000405 



BR 

64 

ITYPL01 already increiented R4 

005204 


3t: 

INC 

R4 

1 advance to next location 

105737 

007330 


TSTB 

MTMPMOD 

(are we in byte tode? 

100401 



BMI 

64 

(yes) advance by one 

005204 



INC 

R4 

ielse advance a whole word 

020437 

007334 

645 

CMP 

R4.MAB0ADR 

isee if entire rande has been checked 

101750 



BIOS 

24 

(continue searchind 

022426 



CMP 

(SP)Pf(SPH 

(discard stacked values 

000147 

174652 


JHP 

CONTIN 

(recover character in RO) parse next coiiand 

111401 


44! 

MOOB 

8R4iRl 

(Set a byte 

011600 



MOO 

(SPJjRO 

(set search value 

074001 



XOR 

ROiRl 

icoipare values 

046601 

000002 


BIC 

2<SPbR! 

lidnore bits that are »asked out 

042701 

177400 


BIC 

*17740d»Rl 

lidnore discrepancies in hidh byte 
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172 144756 

000747 



BR 

5$ 


173 







174 







175 144740 

004767 

144540 

ehoo:: 

JSR 

PCjCRLF 

istart a new line 

174 144744 

013704 

007704 


MOV 

MFIAGS1(R4 

idet a cars of so»e »ode flads 

177 144770 

012702 

156254 


MOV 

t81RVBl.R2 

jpoint to PASS1 co*i3nd 

178 144774 

032704 

100000 


BIT 

♦F.PAS1pR4 

!see if we're in PAS31 or PASS2 

17? 147000 

004767 

000132 


JSR 

PC,1$ 

Iprint proper »ode and point to NOPROT 

180 147004 

032704 

004000 


BIT 

*F.H0STrR4 

5see if HOST or NOHOST is active 

181 147010 

004767 

000122 


JSR 

PCp 1$ 

(Print proper isde 

182 147014 

113704 

007330 


MOVB 

MTMPHQDiR’4 

idet a copy of the rest of the »ode flads 

183 147020 

012702 

156344 


MOV 

*DIRVBI.R2 

ipoint to INSTRU cowand 

184 147024 

132704 

000100 


BITB 

*F.IKSTpR4 

(see if instruction lode is active 

185 147030 

001402 



BE9 

4$ 

) branch if not 

184 147032 

004747 

000100 


JSR 

PCd$ 

iprint proper »ode 

187 147034 



4$: 




188 147034 

012702 

156346 


MOV 

♦DIRVBA.R2 

(Point to ABSOLD coMand 

18? 147042 

132704 

000002 


BITB 

♦F.ABSrR4 

isee if absolute or sy»bolic *ode is active 

190 147044 

001002 



BNE 

6$ 

! absolute tode 

191 147050 

012702 

156412 


MOV 

4EURVBS(R2 

ipoint to symbolic tode 

192 147054 

004767 

000056 

64! 

JSR 

PCd$ 

iprint proper tode 

193 147040 

012702 

156362 


MOV 

♦MRVBH-R2 

ipoint to BYTE cowand 

194 147044 

132704 

000200 


BITB 

IF.BYTH(R4 

isee if bste tode is active 

195 147070 

001402 



BEQ 

7$ 

til isn'ti print nothing 

194 147072 

004747 

144674 


JSR 

PC.PRINT2 

ielse print BYTE cowand 

197 147076 

012702 

156376 

71 : 

MOV 

♦DIRVBN-4.R2 

ipoint to word tode 

198 147102 

132704 

000300 


BITB 

$F,INST!F.BYTMfR 4 iif not bate or instruction then word 

199 147104 

001002 



BNE 

20$ 


200 147110 

004767 

000022 


JSR' 

PC»1$ 


201 147114 

012702 

156432 

20$: 

MOV 

♦DIRVBT+14iR2 

(point to vt»ode 

202 147120 

032767 

004000 040203 


BIT 

♦F.VTrPERMflB 

isee if set 

203 147124 

004767 

000004 


JSR 

PCd$ 

)do show wich vt tode 

204 147132 

000167 

177216 


JMP 

ECON 

iand return 

205 







206 147136 

106746 


1$: 

MFPS 

-<SF) 

(save Z flad 

207 147140 

104416 



MIPS 

(SP) 

iset back a copy 

208 147142 

001001 



BNE 

2$ 

(Print couand pointed tc by R2 

209 147144 

022222 



CMP 

TR2)4dR2)4 

ielse advance to next cowand 

210 147144 

004767 

164622 

2$: 

JSR 

PC.PRINT2 

iprint cowaandp advance R2 

211 147152 

012700 

004440 


MOV 

#4O0$0m04O»R0 

i<SPace> <tab> 

212 147154 

004767 

164346 


JSR 

PCiCHROUT 


213 147162 

106426 



MTPS 

(SP)4 

i recover Z flad 

214 147164 

001401 



BEQ 

3$ 

iif we advanced befom don't do it adain 

215 147166 

022222 



CMP 

(R2)4dR2)4 

iskip over next cowand 

216 147170 

000207 


3$: 

RTS 

PC 



A-69 



1-11 Evaluation Module Monitor MACRO V05.00 Sundas 13-Mar-83 04!10 Fade 44 
Parsins Routines 

1 

2 .SBTTL Directive and Verb Handling Routines 

3 


4 

147172 

162702 

000100 

D0VERBI1SU8 

4PIRVRB-DSYNS.R2»re*ove offset fro» index to verb 

5 

147176 

006202 



ASR 

R2 

.‘take it a word index 

6 

147200 

020227 

000042 


CMP 

R2.*VRBBS1-VRBDSP iis this verb an <ESC> sea. replacement 

7 

147204 

103403 



BL0 

14 

(no 

e 

147206 

005303 



DEC 

R3 

'.lake it so that ue can use previous routines 

9 

147210 

013701 

007330 


MOV 

MTMPNOD.Rl 

.fro* the escape seauence handler 

10 

11 

147214 

000172 

147220 

it: 

Jiff 

PVRBDSP(R2) 

.dispatch to proper handling routine 

12 

13 

147220 



vrbdsp:; 



14 

O 

CM 

CM 

*** 

147320 



.WORD 

HELP 


15 

147222 

147432 



.U0RD 

GO 


16 

147224 

147416 



• WORD 

STEP 


17 

147226 

150202 



•WORD 

PASS1 


18 

147230 

150212 



.WORD 

PASS? 


19 

147232 

150222 



•WORD 

HOST 


20 

147234 

150306 



.WORD 

NOHOST 


21 

147236 

150504 



,H0R0 

TALK 


22 

147240 

150442 



.WORD 

LOAD 


23 

147242 

143164 



.WORD 

CM0N2 

..START 

24 

147244 

143216 



.WORD 

CHON3 

..END 

25 

147246 

147776 



.WORD 

♦.EVEN 


26 

147250 

147700 



.WORD 

4. ASCI 


27 

147252 

147466 



.WORD 

4. BYTE 


28 

147254 

147560 



.WORD 

4. WORD 


29 

147256 

147634 



.WORD 

4.BLKF 


30 

147260 

147654 



.WORD 

4.BLKW 


31 

147262 

146150 


vrbdsi: 

.WORD 

EABS 

IABSGLU point to the start of escape 

32 

147264 

146156 



.WORD 

ECAN 

; CANCEL 

33 

147266 

136752 



.WORD 

4 HALT 

.EXIT 

34 

147270 

146176 



.WORD 

EBYT 

.BYTE 

35 

147272 

146210 



.WORD 

EINS 

.INSTRU 

36 

147274 

146222 



•WORD 

ECLR 

.CLEAR* 

37 

147276 

147444 



.WORD 

DELETE 

.DELETE 

38 

147300 

146270 



.WORD 

ENUM 

.WORD 

39 

147302 

150012 



.WORD 

4RPEAT 

.REPEAT 

40 

147304 

146312 



.WORD 

ESYM 

.SYHBOL 

41 

147306 

146760 



.WORD 

EMOD 

5SH0WH0 

42 

147310 

146332 



.WORD 

EREG 

5SH0WRE 

43 

147312 

152040 



.WORD 

TYPTBl 

; SHOWS Y 

44 

147314 

147374 



• WORD 

VTON 

iVTON 

45 

46 

47 

147316 

147406 



.WORD 

VTOFF 

1 VTOFF 

147320 

012702 

156242 

help:: 

MOV 

♦DIRVRB.R2 

.tape the verb/directive table on the console 

48 

147324 

004767 

164174 

2$: 

JSR 

PCtCRLF 

.start a nee line 

49 

147330 

112737 

000010 007341 


NOVB 

I8..MC0UNT2 

.put 8 commands on a line 

50 

147336 

004767 

164432 

it : 

JSR 

PC .PRINT? 

.print a command 

51 

147342 

020227 

156442 


CMP 

R2,*CMNEMS 

.have we done the whole table 7 

52 

147346 

103010 



BHIS 

34 

»ses 

53 

147350 

105337 

007341 


DEC8 

MCQUNT2 

ihavp we finished a line 7 

54 

147354 

001763 



8E0 

24 

.ves 

55 

147356 

012700 

004440 


MOV 

*400*0111040 iRO 

Uvpe <space> <tab> 

56 

147362 

004767 

164142 


JSR 

PC.CHROUT 


57 

147366 

000763 



BR 

14 
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58 


59 

60 
61 

147370 

000167 

174216 


3$! 

JMP 

CONTIN 

! recover character in R0> continue parsing line 

147374 

052767 

004000 

037726 

vtgn: 

PIS 

♦F.VTiTMPMOP 

{turn vt node on 

62 

63 

64 

147402 

000167 

174176 


vtjmp: 

JMP 

CH0N5 


147406 

042767 

004000 

037714 

vtoff: 

BIG 

tF.VTrTMPHDB 

(turn vt off 

65 

66 
67 

147414 

000772 




BR 

VTJMP 


147416 

052737 

000200 

007706 

step:: 

BIS 

♦F.SSTrMFLAGSl 

{show we are single stepping 

68 

147424 

152737 

000001 

007324 


BJSB 

♦F.SSTlrBILINFLG 

69 

147432 

023727 

007746 

006500 

go:: 

CMP 

BIISP.MUR 

iis user SP in his RAM? 

70 

71 

147440 

000167 

172256 



JMP 

<601 

iuse keypad tonitor GO routine 

72 

73 

147444 

005203 



delete: iimc 

R3 

{counteract earlier DEC R3 in this case 

74 

147446 

004767 

175040 



JSR 

PCjGENEXP 

»get syibol nate to be deleted 

75 

147452 

005303 




DEC 

R3 

{now prepare to use <ESC> seauence routine 

76 

147454 

132737 

000002 

007326 


BITB 

IF . VALLI r BICURCOM (replaces test on LASCOM in EDEL 

77 

78 

147462 

000167 

176552 



JMP 

EDEL1 

!go to routine to delete a sy»bcl 

79 

80 

147466 

013737 

007756 

007334 

I. BYTE 

::mov 

BIIADDRi BIADVADR {get a scratch cops of current address 

81 

147474 

004767 

175022 


it: 

JSR 

PC»GETEXP 

F get a value to be deposited 

82 

147500 

113746 

007330 



HOVB 

BITMPHOD.-(SP) 

Jfool ADRCHK into thinking we are in byte »ode 

83 

147504 

052737 

000200 

007330 


BIS 

♦F.BYTMrBITMPMOD 

84 

147512 

013704 

007334 



MOV 

BIADVADR, R4 

{get running copy of current address 

85 

147516 

004767 

005006 



JSR 

PC.ADRCH2 

{check that it's not in protected RAM 

86 

147522 

112637 

007330 



MOVB 

(SPHiBITMPHOD 

{restore proper tode bits 

87 

147526 

110514 




HOVB 

R5»BR4 

{deposit a byte 

88 

147530 

005237 

007334 



INC 

BIADVADR 

{advance running address 

89 

147534 

120027 

000054 



CMPB 

R0,I054 

f is next character a co**a? 

90 

147540 

001003 




BNE 

2$ 

ino 

91 

147542 

004767 

163660 



JSR 

PCrGETNXT 

{get character after cotta 

92 

93 

94 

147546 

000752 




BR 

It 

{deposit another byte 

147550 

013737 

007334 

007756 

2t: 

MOV 

BIADVADR i BliADDR , update current address 

95 

96 

147556 

000571 




BR 

VCON 


97 

98 

147560 

013737 

007756 

007334 

$. word:: mqv 

BIIADDR , BIADVADR { Set a scratch copy of current address 

99 

147566 

004767 

174730 


it: 

JSR 

PCpGETEXP 

{get a value to be deposited 

100 

147572 

013704 

007334 



MOV 

BIADVADR »R4 

fget running address 

101 

147576 

004767 

004726 



JSR 

PC»ADRCH2 

{check that it's not in protected RAM 

102 

147602 

010524 




MOV 

R5,(R4H 

{deposit a word 

103 

147604 

010437 

007334 



MOV 

R4 i BIADVADR 

{advance running copy of current address 

104 

147610 

120027 

000054 



CMPB 

R0-I054 

!is next character a cotna? 

105 

147614 

001003 




BNE 

2t 

Ino 

106 

147616 

004767 

163604 



JSR 

PC-GETNXT 

fget character after cotta 

107 

147622 

000761 




BR 

It 

{deposit another ward 

108 









109 

147624 

013737 

007334 

007756 

2t: 

MOV 

BIADVADR, BIIADDR {update current address 

110 

147632 

000543 




BR 

VCON 


111 









112 









113 

147634 

004767 

174662 


t.BLKB 

::jsr 

PCiGETEXP 

{get argutent 

114 

147640 

106437 

007326 



MIPS 

BICURCOM 

{check if it contained undefined sytbols 
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115 147644 

001146 



BNE 

VERR1 

fit did, refuse .BLKB directive 

116 147646 

060537 

007756 


ADD 

R5»<?«ABDR 

(add it to current address 

117 147652 

000533 



BR 

VCON 


118 







119 







120 147654 

004767 

174642 


i.BLKUlIJSR 

PCtGETEXP 

(det arduient 

121 147660 

106437 

007326 


HTPS 

MCURCOH 

(check if it contained undefined sstbols 

122 147664 

001136 



BNE 

VERRl 

lit did, refuse ,BLXW directive 

123 147666 

010504 



MOV 

R5,R4 

(take a scratch cops 

124 147670 

006304 



ASL 

R4 

(double it 

125 147672 

060437 

007756 


ADD 

R4,H4APDR 

(add it to current address 

126 147676 

000521 



BR 

VCON 


127 







128 







129 147700 

110037 

007345 


♦. ASCII 1H0VB 

ROiBIDELIM 

!save delititer 

130 147704 

013737 

007756 

007334 

MOV 

M*A0DR,6*ADVADR(det a scratch cops of current address 

131 147712 

004767 

163474 


n: JSR 

PC.6ETCHC 

!det next character, don't fold to upper case 

132 147716 

120037 

007345 


CNPB 

ROfStDELIM 

(have we reached delititer set? 

133 147722 

001417 



BEQ 

2» 

(yes, dorie 

134 147724 

113746 

007330 


MOVE 

SITMPHODctSP) 

ifoal ADRCNK into thinkind we are in bste »ode 

135 147730 

052737 

000200 

007330 

BIS 

*F,BYTM,MTMPMOD 

136 147736 

013704 

007334 


MOV 

MADVADR,R4 

(det runnind cops of current address 

137 147742 

004767 

004562 


JSR 

PC,ADRCH2 

(check that it's not in protected RAM 

138 147746 

112637 

007330 


MOVE 

<SPHi64THPH0D 

(restore proper tode bits 

139 147752 

110014 



MOVE 

R0,?R4 

(deposit a bste 

140 147754 

005237 

007334 


INC 

MADVADR 

(advance runnind address 

141 147760 

000754 



BR 

It 


142 







143 147762 

013737 

007334 

007756 

2*! MOV 

MADVADR, SMADDRiupdate current address 

144 147770 

004767 

163432 


JSR 

PC.GEINXT 

(det character after delititer 

145 147774 

000462 



BR 

VCON 


146 







147 







148 147776 

005237 

007756 


t.EVENIUNC 

MIADDR 


149 150002 

042737 

000001 

007756 

BIC 

41.MBADDR 


150 150010 

000454 



BR 

VCON 


151 







152 







153 150012 

005203 



4rpeat;:inc 

R3 

(counteract earlier DEC R3 in this case 

154 150014 

004767 

174502 


JSR 

PCrGETEXP 

(det repeat count 

155 150020 

106437 

007326 


MTPS 

MCURCOH 

(check if it contained undefined ssibols 

156 150024 

001056 



BNE 

VERRl 

(it did, refuse REPEAT cottand 

157 150026 

005705 



TST 

RS 

(see if a repeat of zero was divert 

158 150030 

001450 



BEQ 

RERR 

(refuse zero 

159 150032 

120027 

000054 


CMPB 

R0,*054 

(check that a cotta follows 

160 150036 

001043 



BNE 

VERR 

(no cotta, error, tissirtd parsteter 

161 150040 

000167 

176232 


JMP 

EREP 

(do to repeat cottand line routine 

162 







163 







164 




.ENABL 

LSB 


165 150044 

005203 



move:: inc 

R3 

(counteract earlier DEC R3 in this case 

166 150046 

004767 

000006 


JSR 

PC, It 

idet address pair 

167 150052 

005303 



DEC 

R3 

(prepare to use <£SC> seauence rountine 

168 150054 

000167 

176304 


JMP 

EMOV 

(do to routine to tove a tetors block. 

169 







170 150060 

004767 

174436 


lil JSR 

PCrGETEXP 

(det first address 

171 150064 

120027 

000137 


CMPB 

R0,tl37 

9 is it followed bs an underline? 
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172 150070 

001026 



SHE 

VERR 

!no> kissing parameter 

173 150072 

010537 

007336 


NOV 

R5(MSAVEXP 

(save the first address 

374 150076 

152737 

000010 

007324 

8ISB 

♦F.SAVXiPJLINFLGfShow we have saved sokething in SAVEXP 

175 150104 

004767 

163316 


JSR 

PC»8ETNXT 

iSet character after underline 

176 150110 

000167 

174406 


JNP 

GETEXP 

tget second address 

177 







178 







179 150114 

005203 



find:; inc 

R3 

icounteract earlier DEC K3 in this case 

180 150116 

004767 

177736 


JSR 

PCrlt 

»4et address pair 

181 150122 

120027 

000054 


cm 

R0.4054 

iis it followed by a coiaa? 

182 150126 

001007 



BNE 

VERR 

t no t kissing parakter 

183 150130 

000167 

176424 


JHF 

EFND 

iSo to routine to find 3 value (search keeory) 

184 




.BSABl 

LSB 


185 







186 







187 150134 

052737 

040000 

007706 

NOPROT 1 IBIS 

4F , PRDT ? P4FLAGS1 i turn off icnitor scratch protection 

188 






ifall into VCON 

IB? 150142 

000167 

173450 


vcon: jnp 

CHON 6 

(Continue parsing 

190 







191 150146 

000167 

173012 


verr: jnp 

CHON2 

(general error 

192 







193 150152 

012702 

151412 


rerr: hdv 

♦REPOf 0rR2 

(repeat of zero error 

194 150156 

000167 

173030 


jnp 

ERROR 


195 







196 150162 

012702 

151372 


VERR1J NOV 

♦UNDEFX fR2 

(undefined expression error 

197 150166 

000167 

173020 


JNP 

ERROR 


198 







199 150172 

042737 

040000 

007706 

PROTEC: 1 Die 

♦F.PROTiBtFLAGSiiturn on konitor scratch protection 

200 150200 

000760 



BR 

VCON 


201 







202 150202 

052737 

100000 

007706 

passu ; bis 

♦F,PASl»e*FLAGSl 

tshow we are in PASS1 lode 

203 150210 

000754 



BR 

VCON 


204 







205 150212 

042737 

100000 

007706 

PASS2I : BIC 

♦F.PAS1 (PtFLAGSUshow we are in PASS2 lode 

206 150220 

000750 



BR 

VCON 


207 







208 







209 150222 

032737 

004000 

007706 

host:: bit 

♦F.KOSTiMFLABSliare we already in host »ode? 

210 -150230 

001346 


% 

BNE 

VERR 

laesf error 

211 150232 

10503? 

007672 


CLRB 

84HFP 

(initialize host input buffer 

212 150236 

105037 

007673 


CLRB 

MHSTFLG 

land host flags 

213 150242 

004767 

164656 


JSR 

PC.SETAX2 

Sketch aux port baud rate to console port 

214 150246 

052737 

004000 

007706 

BIS 

♦F.H0ST,P*FLAGS1 

,iset host kode 

235 150254 

105737 

177550 


TSTB 

84A4RBUF 

(discard any garbage in the port 

216 150260 

012737 

134540 

000120 

NOV 

♦HQSTINiBBAUXIH 

ihooF up host input service routine 

217 150266 

11273? 

000046 

007711 

NOVB 

♦046il?4AUXFLG 

Jsave a new copy of A4CREG value 

218 150274 

112737 

000046 

177452 

NOVB 

*046»P#AtCREG 

(enable aux port receiver interrupt 

219 150302 

000167 

173304 


JNP 

CONTIN 

(recover character in RO 

220 







221 







222 150306 

105737 

007673 


nohost: itstb 

84HSTFLG 

rare we in host load kode? 

223 150312 

100715 



BNI 

VERR 

!yes( refuse NOHOST coMand 

224 150314 

10503? 

007673 


CLRB 

MHSTFLG 

(dear host flags 

225 150320 

112737 

000042 

007711 

NOVB 

I042.P4AUXFLG 

isave a cops of new AtCREG value 

226 150326 

112737 

000042 

177452 

NOVB 

4042'?4AtCR£G 

(disable aux port receiver interrupt 

227 150334 

042737 

004000 

007706 

BIC 

♦F , HOST > 84FLAGS1 i show we are riot in host atode 

22B 150342 

000677 



BR 

VCON 
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229 

230 


231 

150344 

056 

123 

124 

t.STRTI 

.ASCII 

/ .START/ 

.string to Katch for enabling of load aode 


150347 

101 

122 

124 





232 

150352 

015 

012 


option: 

.BYTE 

015.012 

KCR>, <LF> 

233 

150354 

105 

040 

050 


.ASCII 

7E (EXIT), R (RESUME), B (SEND BREAK), "A (SEND "A) ?/ 


150357 

105 

130 

111 






150362 

124 

051 

054 






150365 

040 

122 

040 






150370 

050 

122 

105 






150373 

123 

125 

115 






150376 

105 

051 

054 






150401 

040 

102 

040 






150404 

050 

123 

105 






150407 

116 

104 

040 






150412 

102 

122 

105 






150415 

101 

113 

051 






150420 

054 

040 

136 






150423 

101 

040 

050 






150426 

123 

105 

116 






150431 

104 

040 

136 






150434 

101 

051 

040 






150437 

077 

000 






234 

150441 

000 




.BYTE 

0 

Sbecause the linker won't zero fill 

235 









236 






.ENABL 

LSB 


237 

150442 




bload:: 




238 

150442 

032737 

004000 

007706 

load:: 

BIT 

IF.H0STi8tFLAGSl.is host *ode enabled? 

23? 

150450 

001410 




BEQ 

LERR 

I no, refuse LOAD couand 

240 

150452 

105737 

007673 



TSTB 

84HSTFLG 

(are we in host load code? 

241 

150456 

100405 




BN I 

LERR 

fees, refuse LOAD couand 

242 

150460 

152737 

000100 

007673 


BISB 

tF . LDST .BtHSTFLG ( Show we want to start loading ueon .START 

243 

150466 

005002 




CLR 

R2 

.initialize index to »ateh .START string 

244 

150470 

000417 




BR 

TALKl 


245 









246 

150472 

032737 

020000 

007706 

lerr: 

BIT 

IF.TBAS.StFLAGSlIare we running Tins Basic? 

247 

150500 

001622 




BEO 

VERR 

loo 

248 

150502 

000207 



12$: 

RTS 

FC 

fyes r return to BASIC 

249 









250 

150504 

032737 

004000 

007706 

talk:: 

BIT 

tF.HOST ,?*FLA5Sl(is host »ode enabled? 

251 

150512 

001615 




BEQ 

VERR 

(no, refuse LOAD couand 

252 

150514 

105737 

007673 



TSTB 

etHSTFLG 

(are we in host load aode? 

253 

150520 

100612 




BNI 

VERR 

lyes, refuse TALK couand 

254 

150522 

142737 

000100 

007673 


SICB 

IF .LDST ,8tHSTFLGi shoe we want to ignore .START 

255 









256 

150530 

106427 

000300 


TALKl! 

NTFS 

#300 

(disable interrupts except console break 

257 

150534 

005737 

177562 



TST 

BtCtRBUF 

(clear any garbage in the ports 

258 

150540 

105737 

177550 



TSTB 

MAtRBUF 


259 

150544 

004767 

162754 



JSR 

PC.CRLF 

(start a new line 

260 

150550 

112737 

000011 

177444 


MOVB 

tOll.RtPtPORC 

(turn on LED during virtual ter»inal operation 

261 









262 

150556 

004767 

000364 


6$: 

JSR 

PC.CLRAPE 

(clear aux port error 

263 

150562 

105737 

177560 


1$; 

TSTB 

BtCtRCSR 

(user type a character? 

264 

150566 

100017 




BPL 

2$ 

(no 

265 

150570 

113701 

177552 



NOVB 

RtAtSREG.Rl 

(check host Port status 

266 

150574 

000240 




NOP 


($1* place holder for the above line ttt 

267 

150576 

006201 




ASR 

R1 
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248 

150400 

103012 




8CC 

2* 

»CTS not asserted or trans*itter not e»pty 

249 

150602 

013700 

177562 



MOV 

0*C»RBUFiRO 

(Set character fro* console 

270 

150606 

100407 




BMI 

2* 

Jisnore error characters 

271 

1S0610 

042700 

177600 



BIC 

♦1776OC-R0 

!»ake sure no Parity bit set 

272 

150614 

120027 

00OQO1 



CMPB 

ROt#l 

fis it "A ? 

273 

150620 

001450 




BEQ 

3* 

!ues( exit talk *ode 

274 

150622 

110037 

177450 


9*1 

MOVB 

R0.8#A*XBUF 

»no. output character to host 

275 









274 

150626 

113701 

177552 


2*1 

NDVB 

8*A*SREG»R1 

.check host port status 

277 

150632 

132701 

000002 



BITS 

♦002.R1 

ido we have a character? 

278 

150636 

001751 




BEG 

1* 

(TO 

279 

150640 

113700 

177550 



MOVB 

WAtRBUFrRO 

iset character fro* host 

280 

150644 

042700 

177400 



BIC 

*177400rRO 

fprevent sisn extend 

281 

150650 

132701 

000170 



BITB 

*170»R1 

!is it break or an error? 

282 

150654 

001340 




BNE 

6* 

(ves( isnore character 

283 

150456 

132737 

000100 

007673 


BITB 

#F . LUST i MHSTFLSJ are we Tonkins for .START? 

284 

150664 

001420 




BEG 

5* 

(TO 

285 

150666 

010001 




MOV 

ROiRl 

(take a scratch cops of character 

284 

150670 

005702 




TST 

R2 

(don't fold the period 

287 

150672 

001402 




BEO 

14* 


288 

150674 

042701 

000040 



BIC 

*040<R1 

ifold lower case to upper case 

289 

150700 

120162 

150344 


14*1 

CMPB 

R1»*.STRT<R2) 

(does character »alch? 

290 

150704 

001007 




BNE 

4* 

ino( So back to the ‘.’in .START and try aSain 

291 

150706 

005202 




INC 

R2 


292 

150710 

020227 

000006 



CMP 

R2i*6 

(have we *atehed entire strina? 

293 

150714 

103404 




BLO 

5* 

Jnoi continue with next character 

294 

150716 

110037 

177566 



MOVB 

R0r8*C*XBUF 

(send the character without delay! 

295 

150722 

000470 




BR 

7* 

la »atch( start loadins 

296 









297 

150724 

005002 



4*: 

CLR 

R2 


298 

150726 

105737 

177564 


5*: 

TSTB 

BtCtXCSR 

(is console port ready for a character 

299 

150732 

100313 




BPL 

1* 

ino( drop character 

300 

150734 

110037 

177566 



MOVB 

RO.MCtXBUF 

(yeS( echo character to console 

301 

150740 

000710 




BR 

1* 


302 









303 

150742 

012701 

150352 


3*1 

MDV 

tDPTIDtt'Rl 

(point to tessade 

304 

150746 

004767 

163002 



JSR 

PCfPRINTA 

(print ASCII strins on console 

305 

150752 

105737 

177560 


8*1 

TSTB 

MDtRCSR 

Jwait for a character 

306 

150756 

100375 




BPL 

8* 


307 

150760 

013700 

177562 



MOV 

8tCtRBUF.R0 

(Set character fro* console 

308 

150764 

100772 




BMI 

8$ 

(character caused an erran try aSain 

309 

150766 

042700 

177600 



BIC 

1177600 rRO 

riake sure no parity bit set 

310 

150772 

110037 

177566 



MOVB 

ROrBtCtXBUF 

lecho character to console 

311 

150776 

120027 

000001 



CMPB 

ROttl 

(is it "A? 

312 

151002 

001707 




BEO 

9* 

iyes( send it to host 

313 

151004 

042700 

000040 



BIC 

#040. RO 

ifold lower case to upper 

314 

151010 

120027 

000102 



CMPB 

R0.4102 

iis it B? 

315 

151014 

001012 




BNE 

10* 

!no 

316 

151016 

012701 

100000 



MOV 

♦100000.R1 


317 

151022 

112737 

000057 

177452 


MOVB 

#057r8tA*CREB 

isend break 

318 

151030 

077101 



11*1 

SOB 

Rli . 

iwait a while 

319 

151032 

'112737 

000047 

177452 


MOVB 

*047(8#A*CREG 


320 

151040 

000650 




BR 

1* 

iresuie two-way co»»unicatian 

321 









322 

151042 

' 120027 

000105 


10*1 

CMPB 

RO.tlOS 

ris it E 7 

323 

151046 

001245 




BNE 

It 

(TO( resute eowwmratiori 

324 

151050 

112737 

000010 

177444 


MOVB 

IClOrMPtPORC 

Hum off LEO indicator 
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325 

151056 

112737 

000046 

177452 


MOVE 

*O46(0*A*CREB 

(disable aux port transmitter interrupt 

326 

151064 

106427 

000000 



MIPS 

*000 

! reenable interrupts 

327 

151070 

032737 

020000 

007706 


BIT 

#F.TBAS»R*FLAGSlfare we running Tiny Basic? 

328 

151076 

001201 



1341 

BNE 

12* 

(yesf return to BASIC 

329 

330 

331 

151100 

000167 

172112 



JMP 

CM0N3 

i return to console monitor 

151104 

152737 

000200 

007673 

7*1 

BISB 

*F . LOAD r 8 IHSTFLG i set host load icde 

332 

151112 

112737 

000010 

177444 


HOVB 

#010i8*P*PORC 

iturn off LED indicator 

333 

151120 

112737 

000046 

177452 


MOVE 

*046i0*A*CREG 

(disable aux port transmitter interrupt 

334 

151126 

106427 

000000 



MTPS 

*000 

freenable interrupts A.S.A.P. 

335 

151132 

032737 

020000 

007706 


BIT 

♦F.TBASiMFLAGSlfare we running Tiny Basic? 

336 

151140 

001356 




BNE 

13* 

ryesi return to BASIC 

337 

338 

339 

151142 

000167 

172056 



JMP 

CM0N31 

(return to console monitor 

151146 

112737 

000067 

177452 

clrape: 

MOVE 

*O67»0*A*CREG 

(clear aux port error flags 

340 

151154 

112737 

000047 

177452 


HOVB 

*047i8*A*CREG 

lasser DTR( RTS» enable aux port xmit and recv 

341 

151162 

000207 




RTS 

PC 


342 
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1 

2 .SBTTL Sstbol and Label Handling Routines 

3 

4 .ENABL LSD 


5 

151164 

132737 

000002 

007327 

dcsyhb; IBITB 

$F.VALU,84LASC0M icheck that last 'cottand* was not valued 

6 

151172 

001423 




BEQ 

3$ 

iwas evaluated, error 

7 

151174 

010237 

007334 



MOV 

R2,MADVADR 

istore index here 

8 

151200 

004767 

162222 



JSR 

PCrGETNXT 

iget next teaningful character aTter - 

9 

151204 

106437 

007332 



MTPS 

MEXPFLG 

isee what kind of sstbol we are defining 

10 

151210 

100434 




BMI 

1$ 

iuser defined nate 

11 

151212 

103413 




BCS 

3$ 

iwas a tnetonic, directive, or verb— error 

12 

151214 

004767 

173302 



JSR 

PCpSETEXP 

iget value to be eeuated 

13 

151220 

106437 

007326 



MTPS 

MCURCOH 

icheck if it contained undefined svibols 

14 

151224 

001010 




BNE 

13$ 

lit did, refuse swibol definition 

15 

151226 

013702 

007334 



MOV 

MADVADR,R2 

jget back index 

16 

151232 

020227 

000054 



CMP 

R2,*DSYNUR-DSYHSiwhat is na*e? 

17 

151236 

103407 




BLQ 

4$ 

f RO throuii , 

18 

151240 

101012 




BHI 

5$ 

iBl through B4 

19 

20 
21 

151242 

000167 

171716 


3$: 

JHP 

CM0N2 

felse show error 

151246 

012702 

151372 


13$; 

MOV 

♦UNDEFX, R2 

(undefined expression error 

22 

23 

151252 

000167 

171734 



JMP 

ERROR 


24 

25 

151256 

006202 



4$: 

A SR 

R2 

itake a word index 

26 

151260 

010562 

007732 



MOV 

R5,$R0(R2) 

iset appropriate register, watchpoint, or * 

27 

28 

151264 

000404 




BR 

6$ 


29 

30 

151266 

042705 

000001 


5$; 

BIC 

♦1,R5 

(breakpoints have even addresses 

31 

151272 

010562 

007700 



MOV 

R5»BRKFIL-<DSYHURF4-BSYMS><R2) r set approprite breakpoint 

32 

33 

34 

151276 

000167 

172314 


6$: 

JMP 

CMDN6 


151302 

102021 



lii 

8VC 

2$ 

iswtbol already defined 

35 

151304 

013746 

007320 



MOV 

MTBtTOPHSP) 

isave nate of sstbol we are defining 

36 

151310 

013746 

007322 



MOV 

MTBLT0P+2,-{SP) 

37 

151314 

004767 

173202 



JSR 

PCiGETEXP 

Iget value to be set 

38 

151320 

106437 

007326 



MTPS 

MCURCOM 

Icheck if it contained undefined sstbols 

39 

151324 

001006 




BNE 

12$ 

lit did, ignore sstbol definition 

40 

151326 

010504 




MOV 

R5,R4 

iget value to be set 

41 

151330 

012637 

007322 



MOV 

(SP)F,0tTBLTOPF2!recover nate 

42 

151334 

012637 

007320 



MOV 

(SP)F,MTBLTOP 


43 

44 

45 

151340 

000446 




BR 

9$ 


151342 

022626 



12$; 

CMP 

(SP)4,(SP)4 

ipoe saved nate 

46 

47 

48 

151344 

000754 




BR 

6$ 

iouietly ignore satbol definition 

151346 

010446 



2$: 

MOV 

R4t-(SP) 

isave present value of satbol 

49 

151350 

004767 

173146 



JSR 

PC,G£TEXP 

iget value to be set 

50 

151354 

106437 

007326 



MTPS 

MCURCOM 

icheck if it contained undefined satbols 

51 

151360 

001332 




BNE 

13$ 

iit did, refuse sstbol definition 

52 

151362 

010504 




MOV 

R5,R4 

iput value in R4 

53 

151364 

022604 



io$: 

CMP 

(SP)+,R4 

isee if sstbol or label is being changed 

54 

151366 

001325 




BNE 

3$ 

iit is, which is not pertitted 

55 

56 

57 

151370 

000742 




BR 

6$ 

ino change, so auietla ignore cottand 

151372 

102564 

020071 

054114 

UNDEFX! 

•RAD50 

/UNDEFINED EXPRESSION/ 
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151400 

000340 

063325 

074701 




151406 

057760 






58 151410 

000000 



.WORD 

0 


5? 151412 

070530 

017574 

001136 

REPOFOl .RAD50 

/REPEAT OF ZERO/ 

151420 

002025 

071330 





60 151424 

000000 



. UORC 

0 


61 

62 151426 

132737 

000002 

007327 

DOLABLi IBITB 

4F.VALU(B4LASC0M 

63 151434 

001702 



BEQ 

3$ 


64 151436 

004767 

161764 


JSR 

PCfGETNXT 


65 151442 

106437 

007332 


NTP5 

84EXPFLG 

fsee what kind of label we are defining 

66 151446 

100275 



PPL 

34 

(predefined symbols can't be labels 

67 151450 

102037 



BVC 

84 

luser na»e already defined 

68 151452 

013704 

007756 


MOV 

844AKDRiR4 

(Set value to be set 

67 

70 151456 

013702 

007462 


941 MOV 

84TBLB0T(R2 

(Set betto* of sy*bol table 

71 151462 

162702 

000006 


SUB 

♦6iR2 

(So down one entry 

72 151466 

020227 

006500 


CMP 

R2(44UR !is there seace for new entry? 

73 151472 

101011 



UK I 

114 

(yes 

74 151474 

012702 

151504 


HOV 

4 TBLFUL > R2 

(Point to sessaSe 

75 151500 

000167 

171506 


JNP 

ERROR 

(Print error sessaSe 

76 151504 

076452 

045710 

024324 

TBLFUL! .RA050 

/TABLE FULL/ 


151512 

045400 






77 151514 

7ft 

000000 



.WORD 

0 


/<J 

7? 151516 

106427 

000340 


it*: mips 

4340 

isake sysbol table alterations atosic 

80 151522 

010237 

007462 


MOV 

R2i84TBLB0T 

(by blockins console break( etc. 

81 151526 

013722 

007320 


NOV 

8*TBLT0Pr(R2)t 

(store first word of nase 

82 151532 

013722 

007322 


MOV 

0tTBLTOP+2i(R2)+farrf second word 

83 151536 

010422 



MOV 

R4((R2)t 

(store sysbol's value 

84 151540 

106427 

OOOOOO 


MTPS 

4000 

(restore interrupt service 

85 151544 

000167 

172042 


JHP 

CDMTIN 

(recover character in R0( Set next coiisand 

86 

87 151550 

010446 



841 NOV 

R4,-(SP) 

(save present value of label 

88 151552 

013704 

007756 


MOV 

844ABDR»R4 

(Set current address( which is value to be set 

89 151556 

000702 



BR 

104 


90 




. DSABL 

LSB 
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1 »++ 

2 > GETSYH eatches a new naie to the syibol table. 

3 ! 

4 


5 151540 

013702 

007442 

GETSYH! ! MOV 

84TBLBQT.R2 

.start searching at bottoi of table 

4 151544 

020227 

007320 

2»: 

CMP 

R2.4TBLT0P 

iany tore entries? 

7 151570 

103403 



BL0 

It 

iyes 

8 151572 

005004 



CLR 

R4 


9 151574 

000277 



see 


‘.flag naie not found 

10 151574 

000207 



RTS 

PC 


n 

12 151400 

022237 

007320 

i»: 

CMP 

(R2)+.8tTBLT0P 

.does first word Df naie latch? 

13 151404 

001007 



BNE 

3t 

ino 

14 151404 

022237 

007322 


CMP 

(R2)+t8*TBLT0P42i second word latch? 

15 151412 

001005 



BNE 

44 

Ino 

14 151414 

012204 



MOV 

1R2H.R4 

iset value 

17 151414 

000270 



SEN 


.show this is a user defined sytbol 

18 151420 

000242 



CLV 


land that is has a value 

19 151422 

000207 



RTS 

PC 


20 







21 151424 

005722 


34! 

TST 

(R2H 


22 151424 

005722 


41 S 

TST 

(R2H 

.advance to next entry 

23 151430 

000755 



BR 

24 


24 







25 



J++ 




24 



1 

MATSYM tatches the nutber 

in R1 to syibcl values, starting with the lost 

27 



i 

recently defined. Returns 

a pointer in R2 if latched. Returns N set if 

28 



! 

no tatch. 



29 



i — 





30 


31 151432 

132737 

000002 007330 

MATSYM! 1BITB 

*F.ABS,8#TMPH0B 

.absolute *ode? 

32 151440 

001013 



BNE 

14 

.yes. indicate no »atch 

33 151442 

013702 

007442 


MOV 

84TBLB0T.R2 

iset bottoi of table 

34 151444 

020227 

007320 

24! 

CMP 

R2.ITBLT0P 

iany iore entries? 

35 151452 

103004 



BHIS 

14 

ino 

34 151454 

024201 

000004 


CMP 

4 < R2 ) i R 1 

ido we have a »atch? 

37 151440 

001404 



BED 

34 

iyes 

38 151442 

042702 

000004 

44! 

ADD 

44.R2 

iso to next na»e 

39 151444 

40 

41 151470 

000747 



BR 

24 


000270 


it: 

SEN 



42 151472 

000207 


34! 

RTS 

PC 



43 
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1 H4 


2 

3 





T 

f 

BFLSYM deletes the syabol table entry just below R2. 

4 

5 

151674 

062737 

000006 

007462 

DELSYMliADB 

*6t?*TBLBOT 


6 

151702 

020237 

007462 


2>: 

CMP 

R2(?tTBLB0T 

(done yet? 

7 

151706 

101001 




BHI 

it 

Inor aove up all lower entries 

B 

151710 

000207 




RTS 

PC 


? 

10 

151712 

016242 

177770 



MOV 

-10CR2) r- (R2) 

iaove three words for each entry 

11 

151716 

016242 

177770 



MOV 

-10(R2)i-<R2> 


12 

151722 

016242 

177770 



MOV 

-10(R2b-(R2) 


13 

14 

15 

151726 

000765 



jH 

BR 

2t 


16 





f 

TYPREG types the contents of registers RO throush PS and the watchpoint 

17 





t 

address 

and contents if the address is not zero, 

18 

1? 





f — 




20 

151730 

112737 

000011 

007340 

typreg; imovb 

♦R.iBtCOURTl 

icount ? registers 

21 

151736 

012737 

156142 

007334 


MOV 

tDSTMS.PtftDVABR 

(borrow ABVADK as a pointer 

22 

151744 

004767 

161554 


i»: 

jSR 

PC.CRLF 

fstart a new line 

23 

151750 

013702 

007334 



MOV 

WADVABR(R2 


24 

151754 

004767 

162014 



JSR 

PCiPRINT2 

(type na»e of register 

25 

151760 

010237 

007334 



MOV 

R2(MADVADR 


26 

151764 

162702 

156146 



SUB 

•DSYMS+4»R2 

iso back to register naae 

27 

151770 

004767 

173674 



JSR 

PCtPBSVAl 

(Set contents of reSister 

2B 

151774 

012700 

020075 



MOV 

♦400»040+075tRC 

Hype - <space> 

2? 

152000 

004767 

161524 



JSR 

PCiCHROUT 


30 

152004 

010401 




MOV 

R4iRl 

(Set resister contents 

31 

152006 

004767 

003064 



JSR 

PCrTYPNMl 

(type nuaerically 

32 

152012 

105337 

007340 



BECB 

PtCOUNTl 


33 

152016 

001352 




BNE 

x It 


34 

152020 

013704 

007754 



MOV 

8ttUATCMiR4 

iset watchpoint address 

35 

152024 

001404 




be a 

2$ 

fwatchpoint not set 

36 

152026 

004767 

003216 



JSR 

PtMYPADR 

Hype watchpoint address 

37 

152032 

000167 

003056 



JMP 

TYPL01 

(type in current aode 

38 

3? 

40 

152036 

000207 



2i: 

RTS 

PC 










41 





J TYPTBL types the entire user 

syabol table. 

42 





f~ m 




43 









44 

152040 

016746 

035264 


typtbl: ;mov 

TMPHODj-(SP) 

(take syabols show up in word aode 

45 

152044 

042767 

000200 

035256 


BIC 

♦F.BYTNjTMPMOB 

f 

46 

152052 

013702 

007462 



MOV 

8tTBLB0T)R2 

(start at the bottoa of the table 

47 

152056 

020227 

007320 


7%l 

CMP 

R2»#TBLTGP 

(done yet? 

48 

152062 

103003 




BUIS 

It 

!yes 

4? 

152064 

004767 

000012 



JSR 

PCrTYPSYM 

itype the naae and value of one syabol 

50 

152070 

000772 




BR 

7t 


51 

152072 

012667 

035232 


it: 

MOV 

(SP)tiTMPMOB 

iput back to watever aode it was in 

52 

53 

54 

152076 

000167 

171502 



JMP 

CM0H5 

(Set next coaaand 

152102 

004767 

161416 


typsyh: ; jsr 

PDCRLF 

i start a new line 

55 

152106 

004767 

161662 



JSR 

PC.PRINT2 

(type syabol naae 

56 

152112 

012700 

020075 



MOV 

♦400t040t075iRO 

(type = <5P3Ce> 

57 

152116 

004767 

161406 



JSR 

PCfCHROUT 
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58 152122 012201 

59 152124 000167 002746 


MOV (R2H.R1 rifet value 

JMP TTPNM1 (type it numerical ly 
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1 

2 .SBTTL Arithaetic Routines 

3 


4 

152130 

050405 

LOGORT 3 BIS 

R4.R5 


5 

152132 

000207 

RTS 

PC 


6 

7 

152134 

005104 

L0GAND3 3COM 

R4 


8 

152136 

040405 

BIC 

R4-R5 


9 

10 

11 

152140 

000207 

RTS 

PC 


152142 

010500 

HULTIR3 3«0V 

R5,R0 

(lake a copy of first factor 

12 

152144 

005005 

CLR 

R5 

(clear accuiulator 

13 

152146 

060005 

143 ADD 

R0.R5 

(multiply bu successive addition 

14 

152150 

077402 

SOB 

R4.14 

5 count down second factor 

15 

152152 

000207 

RTS 

PC 


16 

17 

152154 

060405 

ADDIT3! ADD 

R4tR5 


18 

19 

20 

152156 

000207 

RTS 

PC 


152160 

160405 

SUBTR33 SUB 

R4.R5 


21 

152162 

000207 

RTS 

PC 


22 

23 

152164 

005000 

DMD3 3 CLR 

RO 

> initialize Quotient 

24 

152166 

005704 

TST 

R4 

(are we dividing by zero? 

25 

152170 

001403 

BEQ 

24 

(yesi return 177777 

26 

152172 

005200 

14! INC 

RO 

(increment Quotient 

27 

152174 

160405 

SOB 

R4rR5 

!tr« subtracting divisor fro# dividend 

28 

152176 

103375 

BCC 

14 

(successful* no underflow 

29 

152200 

010005 

2*3 MOV 

R0.R5 

(replace accuiulator with Quotient 

30 

152202 

005305 

DEC 

R5 

(adjust for excessive increment of R0 

31 

152204 

000207 

RTS 

PC 
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1 

2 

3 

A 

5 

6 

7 

8 

9 152206 010446 

10 152210 004767 

11 152214 006202 

12 152216 004202 

13 152220 010437 

14 152224 142737 

15 152232 012624 
14 152234 010437 

17 152240 105037 

18 152244 114201 

19 152250 004201 

20 152252 006201 

21 152254 042701 

22 152260 004771 

23 152264 013737 

24 152272 000147 

25 

26 152276 153172 

27 152300 143144 

28 152302 152770 

29 152304 153152 

30 152306 153024 

31 152310 152724 

32 152312 153016 

33 152314 153006 

34 152314 152714 

35 152320 153102 

36 

37 

38 152322 004767 

39 152326 100414 

40 152330 103413 

41 152332 004747 

42 152336 020227 

43 152342 103004 

44 152344 006202 

45 152344 006202 

46 152350 060237 

47 152354 000250 

48 152356 000207 

49 

50 152360 000270 

51 152362 000207 

52 

53 

54 152364 120027 

55 152370 001005 

56 152372 062737 

57 152400 004767 
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. SBTTL Instruction Encode/Decode Routines 
H 

GET1NS lakes an index to a melon ic in R2t and the meionic's base value 
in R4. It parses ana needed operands and stores the resulting code at the 
current address. 




GETINSIIMOV 

R4.-1SP) 

(save the base opcode value 

002310 


JSR 

PCrADRCHl 

(check that it's even and in user RAM 



A SR 

R2 

l»ake a bate index 



ASR 

R2 

(for the PARAMS table 

007336 


MOV 

RliBISAVEXP 

(save opcode address here 

000010 

007324 

8ICB 

If ,SAVK,8IIINFIG( prevent interference vith ncrial use of SAVEXP 



MOV 

(SP)4.(R4)4 

(store base opcode value 

007334 


MOV 

R4,BIABVADK 

(first operand address 

007342 


CLRB 

BINODE 

(initialize addressing lode scratch 

154034 


MOVB 

PARAMS(R2)»RI 

(Set forsat code 



ASR 

R1 

(lake a word index 



ASR 

R1 


177741 


SIC 

♦177741, R1 

(•ask out the garbase 

152274 


JSR 

PCiBINSDSP(Rl) 

(get appropriate operand seouence 

007334 

007754 

MOV 

BIADVADR,8I$ADDR ! update current address 

171314 


JMP 

CONTIH 

(recover next character, parse next conand 



IHSDSPt .WORD 

CONCOD 

(00 leans decode condition codes 



.WORD 

CM0N2 

(01 leans not an instruction 



.WORD 

INSDON 

(02 leans no earateters 



.WORD 

ENTRAP 

(03 leans NNN for EMT and TRAP 



.WORD 

BRDISP 

(04 leans 8-bit branch displaceient 



.WORD 

REGDST 

(05 leans R,DD for JSR and XOR 



•WORD 

OPRAND 

(06 leans SS or DD 



.WORD 

SRCDST 

(07 leans SS,DD 



.WORD 

RTSREG 

(10 leans R for RTS 



.WORD 

SOBDSP 

(11 leans R,NN for SOB 



.ENABL 

LSB 


173122 


gctrcg : ; JSR 

PCiGETMAM 

(parse a symbolic naie 



BHI 

31 

(user defined naie, error 



DCS 

31 

(instruction ineionic, error 

141050 


JSR 

PC,GETLCH 

(get next character in RO 

000040 


CMP 

R2,IDSTNPS-DSYMS»is it RO through PC? 



BHIS 

3* 

(no, error 



ASR 

R2 

(set register nuiber 



ASR 

R2 


007342 


ADD 

R2r BINODE 

(put it in bottoi 3 bits of addressing mde 



CLN 





RTS 

PC 




3$! SEN 





RTS 

PC 



000100 

FULOPRJICHPB 

ROtllOO 

(is first character 8? 


8NE 

51 

(no 

00001 0 007342 

ADD 

110, BIMODE 

Sues, deferred lode 

161022 

JSR 

PCrGETNXT 

(Set character after B 
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58 

152404 

004767 

001672 


54! 

JSR 

PCiRADCH 

Uisht it be a register na»e? 

59 

152410 

100407 




BM! 

6$ 

inoF definitely not a register 

40 

152412 

010046 




MOO 

ROj-(SP) 

(save character 

61 

152414 

010346 




MOV 

R3f-(SP) 

(save runnind pointer 

62 

152416 

004767 

177700 



JSR 

PC fGETREG 

(and try to Set a register na»e 

43 

152422 

100044 




BPl 

7$ 

(successful «ode 0 or 1 

44 

152424 

012403 




MOV 

(SPHrR3 

(restore runnind pointer 

65 

152424 

012600 




MOV 

(SPHiRO 

(restore character in RO 

66 

152430 

120027 

000050 


64! 

CHPB 

R0r#050 

(is it (7 

67 

152434 

001445 




BCD 

4$ 

}ye$r tode If 2f or 3 

6S 

152434 

120027 

000055 



CMPB 

R0,*055 

iis next character -? 

49 

152442 

001011 




BNE 

9$ 

(no definitely not autodecreaent 

70 

152444 

010346 




MOV 

R3i-(SP> 

isave runnind pointer 

71 

152444 

004767 

160754 



JSR 

PCfGETNXT 

(det character after - 

72 

152452 

120027 

000050 



CMPB 

R0»*050 

iis it (7 

73 

152454 

001430 




BEG 

10$ 

iyesF iade 4 ar 5 

74 

152460 

012603 




MOV 

(SP)4tR3 

f restore runnins pointer 

75 

152462 

012700 

000055 



MOV 

*055 fRO 

(restore - in RO 

76 

152466 

120027 

000043 


9*: 

CMPB 

R0t*O43 

(is it *7 

77 

152472 

001454 




BEO 

11$ 

iyesF do iwediate and absolute 

78 

152474 

004767 

000142 



JSR 

PCiGETARG 

(det an index or relative address 

79 

152500 

042737 

000040 

007342 


API 

*60fB*MQD£ 

(indexed addressing tode 

80 

152506 

120027 

000050 



CMPB 

ROi *050 

(is it an index? 

91 

152512 

001421 




BEO 

12$ 

(yes 

82 

152514 

013704 

007334 



MOV 

?$APVADR«R4 

(det next operand address 

83 

152520 

143744 

007334 



SUB 

HADVADRr-(R4) 

(lake this operand a PC relative address 

B4 

152524 

062737 

000007 

007342 


ADD 

*07rR*M0DE 

ii»plicit PC reference 

85 

152532 

000207 




RTS 

PC 


00 

B7 

152534 

022626 



7»: 

CMP 

(SP1MSPH 

(discard saved character and runnind pointer 

88 

oc 

152534 

000207 




RTS 

PC 

(return »ode 0 or 1 

07 

90 

152540 

062737 

000030 

007342 

io$: 

ADD 

*30>R*H0BE 

(for -(f add 40 total to addressind aode 

91 

152546 

005724 




1ST 

(SP)* 

(discard saved runnind pointer 

92 

t 52550 

042737 

000010 

007342 

4$: 

ADD 

I10.MHGDE 

(for (» add 10 to addressing tode 

93 

152556 

004767 

160444 


12$: 

JSR 

PCjGETNXT 

(set character after ( 

94 

152562 

004767 

177534 



JSR 

PCiGETREG 

(should be a redister na*e 

95 

152564 

100501 




SHI 

2$ 

(not a redister naseF error 

96 

152570 

120027 

000051 



CMPB 

RO i*051 

(should be followed by ) 

97 

152574 

001074 




SHE 

2$ 

inoF error 

9B 

152576 

004767 

160624 



JSR 

PCfGETNXT 

(Set character after ) 

99 

152602 

120027 

000053 



CMPB 

R0f*053 

(is it +7 

100 

152606 

001005 




BNE 

8$ 

(not done 

101 

152410 

062737 

000010 

007342 


ADD 

tlOfRtMODE 

(•ode 2 or 3 

102 

152614 

004767 

160604 



JSR 

PCfGETNXT 

(det character after 4 

103 

152422 

000207 



8$: 

RTS 

PC 


104 








t 

105 

152624 

042737 

000027 

007342 

u$: 

ADD 

♦27.MM0DE 

(iiaediater absolute are aodes 2 and 3 with PC 

106 

152632 

004747 

160570 



JSR 

PCfGETNXT 

(Set character after * 

107 

152436 

000167 

000000 



JMP 

GETARG 

(store i»»ediate data or absolute address 

108 









109 

152642 

004767 

171654 


GETARG 

: : jsr 

PCiGETEXP 

(det an arduient in R5 

110 

152646 

013704 

007334 



MOV 

<?*ADVADKfR4 

(det address of operand 

111 

152652 

004767 

001652 



JSR 

PCfADRCH2 

(check that we are still in user RAM 

112 

152654 

010514 




MOV 

R5.8R4 

(store arduaent at operand address 

113 

152660 

062737 

000002 

007334 


ADD 

♦2f8*ADVADR 

(increaent address 

114 

152664 

000207 




RTS 

PC 
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115 

Hi 


117 152670 

120027 

000054 

comack: cnpb 

R0r#054 

(is first operand followed by a co«*a? 

118 152474 

001036 


BNE 

24 

ino, error 

119 152676 

004767 

000042 

JSR 

PCrINSDNl 

! store first operand lode 

120 152702 

004767 

160520 

JSR 

PCjGETNXT 

iset character after cosia 

121 152706 

105037 

007342 

CLRS 

MHQBE 


122 152712 

000207 


RTS 

PC 


123 

124 152714 

004767 

177402 

rtsreg::jsr 

PC.6ETREG 

iset a reSister nuiber 

125 152720 

100424 


BMI 

24 

ierror, not a reSister name 

126 152722 

127 

000416 


BR 

INSDN2 

iadd it to opcode 

128 152724 

004747 

177372 

regdst: : jsr 

PCiGETREG 

iset a reSister nutber 

129 152730 

100420 


BMI 

24 

terror, not a reSister nate 

130 152732 

004767 

177732 

JSR 

PCiCQMACH 

; check for cotea between operands 

131 152736 

004747 

177422 

JSR 

PC*FULGPR 

iset a full operand 

132 152742 

133 

000406 


BR 

INSBN2 


134 152744 

113701 

007342 

INSDNl! MBVB 

HMGDE'Rl 

iset addressins tode bits 

135 152750 

000301 


SWAB 

R1 

ishift it 6 bits to the left 

136 152752 

006201 


ASR 

R1 


137 152754 

006201 


ASR 

R1 


138 152756 

139 

000402 


BR 

14 


140 152740 

113701 

007342 

INSDN2! MOVB 

MKODEiRl 

iset addressins tode bits 

141 152744 

142 

060177 

034346 

l*: ABB 

R1,8SAV£XP 

iadd the* to opcode 

143 152770 

000207 


IHSD0N1 RTS 

PC 


144 

145 152772 

000167 

170166 

2$: jmp 

CM0H2 


146 

147 152774 

012702 

153266 

204! MOO 

♦BRANCH, R2 

iPOint to branch error »essaSe 

148 153002 

149 

000167 

170204 

JMP 

ERROR 


150 153004 

004767 

177352 

SRCDST : : JSR 

PCtFULOPR 

iset first operand 

151 153012 

004767 

177452 

JSR 

PCrCOMACH 

j check. for eoi»s between operands 

152 153016 

004767 

177342 

DPRARDI! JSR 

PCiFULOPR 

iset second operand 

153 153022 

154 

155 

000756 


BR 

INS0N2 

i store second operand node 

156 153024 

004767 

171472 

BRDISPT 1 JSR 

PCtGETEXP 

iSet branch destination 

157 153030 

106437 

007324 

MTPS 

84CURC0M 

fdid expression contain undefined syebols? 

158 153034 

001402 


BEQ 

144 

ino, no proble* 

159 153036 

013705 

007754 

MOV 

8*4ADDR,R5 

iyes, take instruction 'BR so no ranse error 

160 153042 

163705 

007334 

144! SOB 

8*ADVADR,R5 

i*ake it relative 

141 153046 

006205 


ASR 

R5 

Stake it a word offset 

162 153050 

032705 

177600 

BIT 

*177600, R5 

idoes upper byte *atch bit 7 7 

163 153054 

001405 


BEQ 

134 

iyes 

164 153054 

005105 


COM 

R5 


165 153060 

032705 

177600 

BIT 

* 177600, R5 


166 153064 

001344 


BNE 

204 

ino, branch ranse error 

147 153066 

005105 


COM 

R5 


168 153070 

042705 

177400 

1341 BIC 

*177400, R5 

Stake it an 8-bit nutber 

169 153074 

040577 

034236 

ADD 

R5,eSAVEXP 

iadd displaee»ent to op-code 

170 153100 

171 

000207 


RTS 

PC 
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172 

153102 

004767 

177214 


sobdsp: :jsr 

PC.SETREG 

fget register 

173 

153106 

100731 



BN I 

24 

ierrori not a register naae 

174 

153110 

004767 

1775S4 


JSR 

PCrCOMACH 

icheck for cotta between operands 

175 

153114 

004767 

171402 


JSR 

PC.GETEXP 


176 

153120 

106437 

007326 


MIPS 

MCURCOM 

(did expression contain undefined sstbols? 

177 

153124 

001402 



m 

214 

inor no problea 

178 

153126 

013705 

007756 


MOV 

M4ADDRrR5 

J*esr take instruction 'BR so no range error 

179 

153132 

163705 

007334 


214! SUB 

BtADVABRiRS 

faake it relative 

180 

153136 

006205 



ASR 

R5 


181 

153140 

005405 



NEC 

R5 

fSOB instruction uses negated displaceaent 

182 

153142 

032705 

177700 


BIT 

♦1 77700 ;R5 

t6-bit displaceaent 

183 

153146 

001313 



BNE 

204 

i range or direction error 

184 

153150 

000747 



8R 

134 


185 








186 

153152 

004767 

171344 


EHTRAP : : JSR 

PC-GETEXP 

(Set trae nuaber 

187 

153156 

032705 

177400 


BIT 

«77400»R5 

Ishould be <256. 

188 

153162 

001303 



BNE 

24 

i>255.» error 

189 

153164 

000741 



BR 

134 


190 








191 

153166 

004767 

160234 

* 

194! JSR 

PCrGETNXT 

fget character after coaaa 

192 

153172 

120027 

000103 


COMCOBIICMPB 

RO-4103 

JR! aust be 0 when entering -- is it C? 

193 

153176 

001003 



BNE 

164 


194 

153200 

052701 

000001 


BIS 

tliRl 

iset C bit 

195 

153204 

000421 



BR 

154 


196 

153206 

120027 

000126 


164! CHPB 

R0.4126 

iis it V? 

197 

153212 

001003 



BNE 

174 


198 

153214 

052701 

000002 


BIS 

*2rRl 

iset V bit 

199 

153220 

000413 



BR 

154 


200 

153222 

120027 

000132 


174! CMPB 

R0»4132 

iis it Z? 

201 

153226 

001003 



BNE 

184 


202 

153230 

052701 

000004 


BIS 

44rRl 

iset Z bit 

203 

153234 

000405 



BR 

154 


204 

153236 

120027 

000116 


184! CMPB 

R0rtll6 

iis it N? 

205 

153242 

001253 



BNE 

24 

inor illegal character 

206 

153244 

052701 

000010 


BIS 

♦10.R1 

iset N bit 

207 








208 

153250 

004767 

160152 


154! JSR 

PCrGETNXT 

iset next character 

209 

153254 

120027 

000054 


CMPB 

R0f#054 

iis it a coaaa? 

210 

153260 

001742 



BEQ 

194 

ises? Set soae tore 

211 

153262 

005301 



DEC 

ftl 

icoaeensate for opcode base value = 241 or 261 

212 

153264 

000637 



BR 

14 

iadd condition bits to opcode 

213 





.DSABL 

LSB 


214 








215 

153266 

007521 

054000 

001155 

BRANCH! .RAD50 

/BRANCH OUT OF RANGE/ 


153274 

076417 

022622 

004167 





153302 

027500 






216 

153304 

000000 



.WORD 

0 
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1 

2 

3 

4 


;++ 

! TtPINS decodes the instruction at address R4 and types it followed on the 
i next line by the next address. 

{ — 


5 


6 153306 

011405 


typins::hov 

8R4,R5 

?3et opcode 

7 153310 

010500 



m 

R5fR0 


8 153312 

006300 



ASL 

RO 

{Set bits 6 through 13 

9 153314 

006300 



ASL 

RO 


10 153316 

000300 



SUfiP 

RO 


11 153320 

042700 

177700 


BIC 

*177700, RO 


12 153324 

110037 

007342 


NOVB 

RO.MHODE 

i store the» here for operand decode 

13 153330 

005705 



TST 

R5 


14 153332 

100027 



BPL 

54 

inot a byte lode instruction 

15 153334 

042705 

100000 


BIC 

*100000, R5 

{first see if it's a byte »ode instruction 

16 153340 

004767 

000120 


JSR 

PC, 14 

!»atch to table, Set index 

17 153344 

006202 



ASR 

R2 


18 153346 

105762 

156034 


TSTB 

PARAHS(R2) 


19 153352 

1000 17 



BPL 

54 

inot byte aode, do it nonally 

20 153354 

006302 



ASL 

R2 

i restore R2 

21 153356 

012405 



NOV 

(R4H,R5 

{fix R4, restore R5 

22 153360 

010246 



NOV 

R2,-(SP> 

isave index 

23 153362 

006302 



ASL 

R2 

{take index to meionic 

24 153364 

062702 

156502 


Aim 

*HHEN5,R2 


25 153370 

011201 



NOV 

0R2rRl 

iset 3 chracter »ne»onic 

26 153372 

004767 

160406 


JSR 

PC-PRINT1 

{type it 

27 153374 

012602 



NOV 

<SPH,R2 

{restore R2 

28 153400 

012701 

006200 


NOV 

*50459*2, R1 

{type B <SP> <SP> 

29 153404 

004767 

160374 


JSR 

PC,PRINT1 


30 153410 

31 

32 153412 

000412 



BR 

64 


012405 


54! 

NOV 

(R4)+,R5 

{Set opcode 

33 153414 

004767 

000054 


JSR 

PC, 14 

J latch to table 

34 153420 

010246 



NOV 

R2i-(SPJ 

(save index 

35 153422 

006302 



ASL 

R2 

i lake index to ineeanic 

36 153424 

062702 

156502 


ADD 

*Nffi«S,R2 


37 153430 

004767 

160340 


JSR 

PC,PRINT2 

{type melon ic 

38 153434 

012602 



NOV 

(SPH.R2 

{set index back 

39 153436 

012700 

000011 

64 ; 

NOV 

♦Oil »R0 

{type <tab> 

40 153442 

004767 

160062 


JSR 

PC,CHROUT 


41 153446 

006202 



ASR 

R2 

{take byte instruction index 

42 153450 

116201 

156034 


HOVB 

PARANS(R2),R1 

?3et forial code 

43 153454 

006201 



ASR 

R1 


44 153456 

006201 



ASR 

R1 


45 153460 

042701 

177741 


BIC 

*177741, R1 

{■ask out the garbage 

46 153464 

004771 

153514 


JSR 

PC,8INTDSP(R1) 

(type operands 

47 153470 

48 

49 153474 

000167 

001554 


JNP 

TYRADR 

{type next address and a tab 

012702 

000212 

145 

NOV 

*PARANS-BASES-2,R2 > index last base value 

50 153500 

020562 

155620 

34! 

CNP 

R5,BASES(R2) 

icoipare opcode to base value 

51 153504 

103002 



BHIS 

44 

{ latch 

52 153506 

005742 



TST 

- (R2) 

{keep lookins 

53 153510 

000773 



BR 

34 


54 153512 

55 

56 153514 

000207 


44! 

RTS 

PC 


154132 


intbsp; 

.yORD 

TCORCD 

JCVZN 

57 153516 

153540 



.MOM 

NOPCOD 

{16 bit value, not an opcode 
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58 153520 

153564 


.WORD 

INTDON 

into operands 

5? 153522 

153722 


.WORD 

TEhTRP 

!EMT and TRAP 

60 153524 

153734 


.WORD 

TBRDSP 

(8-bit diselaceeent 

61 153526 

153574 


.WORD 

TRGDSI 

;r.dd 

62 153530 

153554 


.WORD 

T0PRN5 

1SS or DD 

63 153532 

153544 


.WORD 

TSRDST 

iSSfDD 

64 153534 

153566 


.WORD 

TRTSR6 

iR 

65 153536 

153676 


.WORD 

TSOBDS 

* 6-bit positive displaceaent 

66 






67 



.ENA8L 

LSB 


68 153540 

005744 


nopcod: itst 

-<R4) 

.back ur to rxwber 

69 153542 
an 

000553 


BR 

121 

.type it as data 

/V 

71 153544 

004767 

000200 

tsrdst: : jsr 

PCiTFUlOP 

.type an operand 

72 153550 

004767 

000026 

13*1 JSR 

PC tTCOHMA 

(type co*»3 

73 153554 

004767 

000102 

tdp*hd::jsr 

PC.GETDST 

(Set bits 0 through 5 of opcode 

74 153560 

004767 

000164 

jsr 

PC.TFULOP 

Hype operand 

75 153564 

000207 


INTDOM! RTS 

PC 


76 






77 153566 

004767 

000070 

TRTSRGilJSR 

PC.GETDST 


78 153572 

000421 


BR 

TREGIS 

itype register na»e 

7? 






80 153574 

004767 

000036 

TRGDSTt t JSR 

PCrTREGIS 

Hype register 

81 153600 

000763 


BR 

13* 

Hype coMa and second operand 

82 






83 153602 

012700 

000054 

tcomma: hov 

*054. RO 


84 153606 

000167 

157716 

JMF 

CHROUT 


BS 






86 153612 

012700 

000050 

TPRE6!! MOV 

tO5O.R0 

Hype ( 

87 153616 

004767 

157706 

JSR 

PC rCHROUT 


8B 153622 

004767 

000010 

JSR 

PC.TREGIS 

Hype register na»e 

89 153626 

012700 

000051 

MOV 

*051 (RO 


90 153632 
01 

000167 

157672 

JMP 

CHROUT 


Tl 

92 153636 

113700 

007342 

TRESIS!! MOVE 

MMODE.RO 

(Set bits 0 through 2 

93 153642 

042700 

177770 

BIC 

*17?770(R0 


94 153646 

006300 


A St 

RO 

i index register na»e 

95 153650 

006300 


ASl 

RO 


96 153652 

016001 

156142 

MOV 

DSTMSfROl.Rl 

.get RAD50 triplet 

97 153656 

000167 

160126 

JMP 

PRINT4 

itype it 

98 






99 153662 

110537 

007342 

GETBST! MOVB 

R5(8»M0DE 


100 153666 

142737 

000300 

007342 BIC8 

I300.MMODE 


101 153674 

000207 


11*: RTS 

PC 


102 






103 153676 

004767 

177734 

tsobds; : JSR 

PC. TREGIS 

Hype register na»e 

104 153702 

004767 

177674 

JSR 

PC. TCOMMA 

itype coua 

105 153706 

010501 


MOV 

R5.R1 

iSet loner 6 bits 

106 153710 

042701 

177700 

BIC 

♦177700.R1 


107 153714 

006301 


ASL 

R1 

Hake it a byte displaceeent 

108 153716 

005401 


MEG 

R1 


109 153720 

000407 


BR 

6* 


110 






111 153722 

010501 


temtrp::mov 

R5.R1 

(get loner 8 bits without sign extend 

112 153724 

042701 

177400 

BIC 

♦177400.R1 


113 153730 

005744 


TST 

- ( R4 ) 

.TYHD2 will advance R4 

114 153732 

000404 


BR 

7* 
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115 


116 

153734 

110501 


TBRDSP: 

{M0VB 

R5.R1 

iSet lower 8 bits with sisn extend 

117 

153736 

006301 



ASL 

R1 

iaake it a bate displacement 

118 

153740 

060401 


6$: 

ADD 

R4.R1 

iadd in the 'PC' 

11? 

153742 

005744 



TST 

-(R4) 

JTYPL02 will advance R4 

120 

153744 

000167 

001162 

74! 

JMP 

TYPL02 

itape this value 

121 








122 

153750 

113702 

007342 

TEUL0P!!NOVB 

8IM0DE.R2 

i addressing mode scratch 

123 

153754 

032702 

000010 


BIT 

♦10.R2 

(deferred 7 

124 

153760 

001404 



BEG 

14 

(no 

125 

153762 

012700 

000100 


HOV 

*100, RO 

Hare P 

126 

153766 

004767 

157536 


JSR 

PC, CHROUT 


127 

153772 

120227 

000020 

lit 

CURB 

R2,#20 

(mode 0 or 1? 

128 

153776 

103717 



BID 

TREGIS 

,‘aes, just tape resistor name 

129 

154000 

120227 

000060 


CMPB 

R2r460 

(mode 6 or 7? 

130 

154004 

103034 



BHIS 

21 

iaes, indexed 

131 

154006 

120227 

000027 


CURB 

R2,*27 

1 immediate? 

132 

154012 

001423 



BED 

31 

iaes 

133 

154014 

120227 

000037 


CMPB 

R2>*37 

i absolute? 

134 

154020 

001420 



BED 

31 

iaes 

135 

154022 

120227 

000040 


CMP8 

R2,#40 

i autodec rement ? 

136 

154026 

103404 



BLO 

41 

ino 

137 

154030 

012700 

000055 


MOV 

#055»RO 

itape - 

138 

154034 

004767 

157470 


JSR 

PC, CHROUT 


13? 

154040 

004767 

177546 

44! 

JSR 

PCfTPREG 

(tape register name in parenthesis 

140 

154044 

120227 

000040 


CMPB 

R2,*40 

iautoincrement 7 

141 

154050 

103245 



BHIS 

I NT BON 

(no, finished 

142 

154052 

012700 

000053 


MOV 

#053, RO 

itape + 

143 

154056 

000167 

157446 


JMP 

CHROUT 


144 








145 

154062 

012700 

000043 

34! 

MOV 

#043, RO 

itape ♦ 

146 

154066 

004767 

157436 


JSR 

PC, CHROUT 


147 

154072 

000167 

001016 

124! 

JMP 

TYP101 

itape next location 

148 








14? 

154076 

120227 

000067 

24! 

CMPD 

R2,#67 

(relative? 

150 

154102 

001406 



BEQ 

54 

iaes 

151 

154104 

120227 

000077 


CMPB 

R2i#77 

(relative deferred? 

152 

154110 

001403 



BEQ 

51 

iaes 

153 

154112 

004767 

000776 


JSR 

PCiTYPLOl 

itape next location 

154 

154116 

000635 



DR 

TPREG 

itype register name in parenthesis 

155 








156 

154120 

012401 


54! 

HOV 

(R4)+*fil 

iset next location 

157 

154122 

060401 



ADD 

R4,R1 

iadd in the ’PC 

158 

154124 

005744 



TST 

-(R4) 

,TYPL02 will increment R4, don't do 

159 

154126 

000167 

001000 


JMP 

TYPL02 

itaee the value 

160 








161 

154132 

010501 


TCQNCD! 

! MOV 

R5?Ri 

iset opcode 

162 

154134 

006201 



ASR 

R1 

iC bit set 7 

163 

154136 

103004 



BCC 

84 

ino 

164 

154140 

012700 

000103 


MOV 

#103, RO 

(tape C 

165 

154144 

004767 

157360 


JSR 

PC, CHROUT 


166 

154150 

006201 


84! 

ASR 

R1 

iV bit set 7 

167 

154152 

103004 



BCC 

94 


168 

154154 

012700 

000126 


MOV 

♦126, RO 


16? 

154160 

004767 

157344 


JSR 

PC, CHROUT 


170 

154164 

006201 


94! 

ASR 

R1 

iZ bit set 7 

171 

154166 

103004 



BCC 

104 
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172 

154170 

012700 

000132 

MOV 

♦132iR0 

173 

154174 

004767 

157330 

JSR 

PCrCHROUT 

174 

154200 

006201 


10$: ASR 

R1 

175 

154202 

103234 


BCC 

11$ 

174 

154204 

012700 

000114 

HOV 

♦116»R0 

177 

154210 

000167 

157314 

JMP 

CHRDUT 

178 




. DSABL 

LSB 
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It 


,SETTL Conversion and Typeout Routines 


B1NASC strips the thousands disit fro» the value in R1 and tultiplies R1 


5 

6 



f 

t 

bu 10. 

Use FINAS1 to 

aet the lOOOO.s dislit. 

7 

B 154214 

005000 


BINASCUCLR 

RO 

.divide by successive subtraction 

9 154214 

005200 


lit 

INC 

RO 


10 154220 

162701 

001750 


SUB 

♦1000.. R1 

f try to subtract 1000. 

11 154224 

103374 



BCC 

li 

.worked, no borrow 

12 154224 

005300 



DEC 

RO 

ifix RO 

13 154230 

062701 

001750 


ADD 

♦1000.. R1 

.and R1 

14 154234 

006301 



ASL 

R1 

ieultiply R1 by 10 

15 154234 

010146 



MOV 

Rl.-(SP) 


14 154240 

004301 



ASL 

R1 


17 154242 

006301 



ASL 

R1 

i tiles 8 

18 154244 

042601 



ADD 

(SPH.Rl 

.plus 2 lakes 10 X 

1? 154244 

042700 

000040 


ADD 

♦060.RO 

iadd 060 to lake it an ASCII didit 

20 154252 

000207 



RTS 

PC 


21 







22 







23 154254 

005000 


BINASlttCLR 

RO 

.divide bs successive subtraction 

24 154254 

005200 


lit 

INC 

RO 


25 154260 

162701 

023420 


SUB 

♦10000..R1 

.try to subtract 10000. 

24 154244 

103374 



BCC 

It 

.worked, no borrow 

27 154266 

005300 



DEC 

RO 

ifix RO 

28 154270 

062701 

023420 


ADD 

♦10000..R1 

iand R1 

29 154274 

042700 

000060 


ADD 

♦O60.R0 

iiake an ASCII didit 

30 154300 

000207 



RTS 

PC 


31 







32 



;++ 





33 

34 


RADCH checks if the character in R0 is a ledal RAD50 character. 
N=1 if not. 


Returns 


35 

16 

37 

38 
3? 

40 

41 

42 

43 

44 

45 
44 

47 

48 

49 

50 

51 

52 

53 


154302 

120027 

000133 

RADCHt! CNPB 

R0.4133 

ihidher than t 

154304 

103017 


BHIS 

2t 


154310 

120027 

000101 

CMPB 

R0.4101 

>A or hidher? 

154314 

103016 


BHIS 

It 


154314 

120027 

000072 

CMPB 

R0.4072 

it or hidher? 

154322 

103011 


BHIS 

2t 


154324 

120027 

000060 

CMPB 

R0.4060 

.0 or hidher? 

154330 

103010 


BHIS 

It 


154332 

120027 

000056 

CMPB 

R0.4056 

(period 7 

154336 

001405 


BED 

It 


154340 

120027 

000044 

CMPB 

R0.4044 

.dollar sidn? 

154344 

001402 


BEG 

It 


154346 

000270 


2tt SEN 



154350 

000207 


RTS 

PC 


154352 

000250 


lit CLN 



154354 

000207 


RTS 

PC 
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1 

1 

i. 

3 

4 

5 

6 
7 

B 154354 
9 154342 

10 154364 

11 154370 

12 154372 

13 154376 

14 154400 

15 154402 

16 154404 

17 154406 

18 154410 

19 154412 

20 154414 

21 
22 

23 

24 

25 

26 154416 

27 154422 

28 154426 

29 154430 

30 154434 

31 154436 

32 154442 

33 154444 

34 154446 

35 154452 

36 154456 

37 154460 

38 154464 

39 

40 154466 

41 154470 

42 154474 

43 

44 

45 154476 
154504 

46 154510 

47 

48 154512 
154520 

49 154522 
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;++ 

; NUMCH checks if the character in RO is numeric and returns flaSs as follows! 
J N=0» 0=0 character is 0 throush 7 

! N=0r V=1 character is 8 or 9 




i 

}— 

N=1 ana 

other character 


120027 

000060 

NOMCH 

:: CMPB 

R0i4060 

> is it 0 or lusher? 

103413 



BLO 

It 

?noF non-nu*eric 

120027 

000072 


CMPB 

R04072 

iis it hisher then 9? 

103010 



BHIS 

It 

fsesr non-nueeric 

120027 

000070 


CMPB 

R0.*070 

iis it hisher than 7? 

103002 



BHIS 

2t 

•west 8 or 9 

000257 



CCC 


JflaS 0 throush 7 

000207 



RTS 

PC 


000257 


24! 

CCC 



000262 



SEV 


iflas 8 or 9 

000207 



RTS 

PC 


000270 


it: 

SEN 



000207 


m 

RTS 

PC 



ASCRAD nultielies R1 lw 40 and adds the RAP50 equivalent of R0. 


004767 

157500 

ASCRAD 

::jsr 

PC * R1X40 

iiultipls Rl bv 40 

120027 

000040 


CMPB 

R0f4040 


001416 



BEG 

It 

i spaces converts to 0 

120027 

000056 


CMPB 

R0.W56 


001414 



BED 

4t 

» period is 34 

120027 

000044 


CMPB 

R0t#044 


001412 



BED 

5t 

idollar siSn is 33 

060001 



ADD 

ROrRl 


162701 

000100 


SUB 

♦100»R1 


120027 

000101 


CMPB 

ROrtlCt 


103002 



BHIS 

It 

ialphabetics are 1 throush. 32 

062701 

000056 


ADD 

4056-R1 

Inuaerics are 36 throush 47 

000207 


it: 

RTS 

PC 


005201 


4t! 

INC 

Ri 


062701 

000033 

5t: 

ADD 

♦033.R1 


000207 



RTS 

PC 



0547S4 

000566 

001533 

USERAH: ■ RAD50 

/HOT IN USER RAM/ 

021020 

000000 

070265 


.WORD 

0 

057144 

000054 

015725 

QDDADR! .RAD50 

/ODD ADDRESS/ 

074670 

000000 



.WORD 

0 
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1 




.44 



2 




1 

TYPDEC tares the value in R1 as a sisned? 5-diSit deciial nueber followed 

3 

4 




i 

by a Period. TYPOE! can be used to tare unsigned numbers. 

5 

6 154660 

012700 

000040 


TYPDEC: JHOV 

♦040.R0 

7 154664 

005701 




1ST 

R1 

8 154666 

100003 




BPL 

It 

9 154670 

005401 




MEG 

R1 

10 154672 

012700 

000055 



MOV 

*055 >R0 

11 154676 

004747 

156626 


it: 

JSR 

PCtCHROUT 

12 154702 

112737 

000005 

007341 


MOVE 

*5rB*C0UNT2 

13 154710 

004767 

177340 



JSR 

PCtBlNASl 

14 154714 

000402 




BR 

3t 

15 154716 

004747 

177272 


5t: 

JSR 

PCfBINASC 

16 154722 

004747 

156602 


3t: 

JSR 

PCiCtHOOT 

17 154726 

105337 

007341 



DECS 

MCOUNT2 

18 154732 

001371 




BNE 

5t 

19 154734 

012700 

000056 



MOV 

t056.RO itape a period 

20 154740 

21 

22 

000147 

156564 


144 

Jiff* 

CHROUT 

23 




f 

TYPOCT tares R1 as an octal ward. 

24 




i — 



25 







26 154744 

005000 



TYPOCT: 1CLR 

RO 

27 154746 

032747 

000200 

032354 


BIT 

IF.BYTMiTMPMOD fis it in bate lode 

28 154754 

001407 




BEQ 

It (branch if yes 

29 154756 

112747 

000003 

032355 


MQVB 

I3.CQUNT2 Jif byte eode only three diSits 

30 154764 

000301 




SUAE 

R1 (only low byte out 

31 154766 

006301 




ASl 

R1 

32 154770 

006100 




R0L 

RO 

33 154772 

000411 




BR 

3t 

34 154774 

112747 

000006 

032337 

it: 

MOVE 

*4»C0UNT2 

35 155002 

000405 




BR 

3t 

36 155004 

005000 



2t: 

CLR 

RO 

37 155006 

006301 




ASL 

R1 

38 155010 

006100 




ROL 

RO 

39 155012 

006301 



4t: 

ASL 

R1 

40 155014 

006100 




ROL 

RO 

41 155016 

006301 



3t: 

ASL 

R1 

42 155020 

006100 




ROL 

RO 

43 155022 

062700 

000060 



ADD 

I060.RC 

44 155026 

004767 

156476 



JSR 

PC .CHROUT 

45 155032 

105337 

007341 



BECB 

MC0UNT2 

46 155036 

001342 




BNE 

2t 

47 155040 

48 

49 

000207 




RTS 

PC 
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1 






2 



» 

TYPSPC tapes a tabi except in instruction »ode (tape nothina) 

3 

4 



#*“ 



5 155042 

132737 

000100 007330 

TYPSPC! 1 BITE 

1 IF.IMSTiHTMPhOD 

6 155050 

001004 



BN£ 

11 

7 155052 

012700 

004440 


MOV 

♦400401 1+040 iRO tspacei tab 

B 155056 

000167 

156446 

2«: 

JKP 

CHROUT 

9 155062 

000207 


i$: 

RTS 

PC 

10 






11 



m 



12 



i 

TYPNUM 

tapes the value in R1 as a saebol or nueber. 

13 



( 

TYPNMl 

tapes the value in R1 as a nuaber onla. 

14 



5— 



15 






16 155064 

004767 

174542 

TYPNUH11JSR 

PCfHATSYM itra to eatch a ssibol 

17 155070 

100402 



BM1 

TYPNM1 (unsuccessful. tape nutericalla 

18 155072 

000167 

156676 


JMP 

PRINT2 (else tape saibol's na»e 

19 155076 

000722 


TYPNM1I1BR 

TYP0CT 

20 






21 






22 



r 

TYPLOC 

tapes the location addressed ba R4 in the current »odei 


23 

24 

25 


to the next location. TYPL01 can be used within instruction tapeout. 


26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


155100 

004767 

177504 

TYPLOC 11JSR 

PCiABRCHK 


155104 

132737 

000100 

007330 81 IB 

♦F.INSTfMTHPMOB 

155112 

001026 


BNE 

TYPLOI 


155114 

011401 


TYPL01! ‘MOV 

8R4.R1 

(Set current location as a ward 

155116 

105737 

007330 

TSTB 

MTHPNOB 

iare we in bate *ode? 

155122 

100003 


BPL 

TYPL02 

(no 

155124 

111401 


H0VB 

8R4.R1 

(else Set location as a bate 

155126 

042701 

177400 

BIC 

♦177400fR1 

.prevent sisn extension 

155132 

004767 

174474 

TYPL0211JSR 

PCfMATSYM 

>tra to »atch a sanbol 

155136 

100403 


BMI 

2t 

(unsuccessful 

155140 

012700 

133774 

3il MOV 

♦PRINT2.R0 


155144 

000402 


BR 

5t 


155146 

012700 

155076 

2t! MOV 

♦TYPNMlrRO 


155152 

004710 


5tt JSR 

PC»(R0t 


15515,4 

005204 


INC 

R4 


155156 

105737 

007330 

TSTB 

MTMPMOD 


155162 

100401 


BMI 

64 


155164 

005204 


INC 

R4 


155166 

000207 


61 1 RTS 

PC 


155170 

010546 


TYPL0I1 SMOV 

R5i-(SP) 

(save R5 because TYPINS uses it 

155172 

004767 

176110 

JSR 

PCiTYPINS 

(tape an instruction 

155176 

012605 


MOV 

(SP)+rR5 

(restore R5 

155200 

000207 


RTS 

PC 
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1 ;++ 

2 I TYPLIN tunes the next 8 locations or four locations if in binary *>de, 

3 ! — 

4 


5 

155202 

004767 

000042 


TYPLIN! 1JSR 

PCi TYPADR 

I type address in R4 as label or octal nuaber 

6 

155206 

112737 

000010 

007340 


MOVB 

48. fMCQUNTl 


7 

155214 

004767 

177660 


111 

JSR 

PCrTYPLOC 

I tune location in current aodet advance R4 

8 

155220 

004767 

177616 



JSR 

PCfTYPSPC 


9 

155224 

005704 




TST 

R4 

Ifor 177776 to 0 case 

10 

155226 

001406 




BEQ 

34 


11 

155230 

020405 




CMP 

R4*R5 

idone yet? 

12 

155232 

101003 




BHI 

24 

lyes 

13 

155234 

005337 

007340 



DEC 

MCQUNT1 


14 

155240 

001365 




BNE 

14 


15 

155242 

000207 



24! 

RTS 

PC 


16 

155244 

000244 



34! 

CLZ 



17 

155246 

000207 




RTS 

PC 


18 





at 




19 





! 

TYPADR tunes the value in R4 as a label or octal nuiberi followed bu ! <SP> 

20 









21 









22 

155250 

016746 

032054 


TYPADR! !MOV 

THPNOD»-(SP) 

Ifor byte aode 

23 

155254 

042767 

000200 

032046 


BIC 

♦F.BYTMiTMPMOD 

f 

24 

155262 

004767 

156236 



JSR 

PCiCRLF 


25 

155266 

010401 




MOV 

R4.R1 


26 

155270 

132737 

000002 

007330 


BITB 

4F.ABS.MTMPM0D 


27 

155276 

001006 




BNE 

14 


28 

155300 

004767 

174326 



JSR 

PCjMATSYM 


29 

155304 

100403 




BMI 

14 


30 

155306 

004767 

156462 



JSR 

PCrPRINT2 


31 

155312 

000402 




BR 

24 


32 









33 

155314 

004767 

177424 


14! 

JSR 

PC,TYP0CT 


34 

155320 

012700 

020072 


24! 

MOV 

#400t040+072 r RO 


35 

155324 

012667 

032000 



MOV 

(SP)EiTMPNOD 

Jrestor lode 

36 

155330 

000167 

156174 



JMP 

CHROUT 
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1 

n 


. SBTTL Pawer-up Diadriastics 


3 


4 

C 





.ENABL 

L5B 



J 

6 

155334 

005203 



diagnouinc 

R3 

.use r3 as disit to display nu»ber 

7 

155334 

012737 

000377 

177440 


MOV 

♦377,MP$P0RA 

(lidht all sedtents 

8 

155344 

012737 

000011 

177444 


MOV 

♦ll.HPtPORC 

.turn on led 

9 

155352 

012705 

003133 



MOV 

♦400*0063133 rR5 

initialize error code '12' 

10 

155356 

012701 

007776 



MOV 

♦7776, R1 

♦fill RAM with pattern, savins location for JSR 

11 

155342 

010102 




MOV 

R1.R2 


12 

155364 

005000 




CLR 

RO 


13 

155344 

010041 



it: 

MOV 

RQ.-(Rl) 


14 

155370 

005200 




INC 

RO 


15 

155372 

005201 




INC 

R! 


14 

155374 

077104 




SOB 

Rl.lt 


17 

155374 

012706 

010000 



MOV 

IIOOOO.SP 

1 set SP to toe of RAM 

18 

155402 

012700 

005777 



MOV 

♦5777.R0 

(checksu* co»p]e*ent for RAM pattern 

19 

155404 

004747 

000144 



JSR 

PC, CHKSUM 

(checksu* words fro* R1 (=0) to R2 (-7776) 

20 

155412 

042703 

177770 



BIC 

♦177770.R3 

(•ask of all but diSil select 

21 

155414 

110337 

177444 



MOVB 

R3,MPtP0RC 

iturn off led and turn on disit 

22 

155422 

012701 

133000 



MOV 

♦1 33000. R1 

index ROMs 

23 

155424 

012702 

160000 



MOV 

♦EN0.R2 

fset upper checksu* lint to top of ROMs 

24 

155432 

005000 




CLR 

RO 

i perform checksu* of ROM 

25 

155434 

004747 

000120 



JSR 

PC.CHKSUH 


24 

155440 

005705 




TST 

R5 

Ido we have an error yet? 

27 

155442 

001035 




BNE 

2t 

lyes, exit and show it 

28 

29 

30 

155444 

012705 

000117 



MOV 

♦400*000+1 17, R5 

initialize error code 1 3' 

155450 

012700 

177560 



MOV 

♦177540.RO 

1 point to console 

31 

155454 

105740 

000002 


SLUTS! ; 

TST? 

2tR0) 

.clear out and recieved darbade 

32 

155460 

152740 

000004 

000004 


BIS? 

♦4.4(R0J 

.set aainenace bit 

33 

155444 

112701 

000060 



MOVB 

♦40.R1 

Unit character to x*it 

34 

155472 

105760 

000004 


sum: 

TST? 

4(R0) 

(ready to x»it 

35 

155474 

100375 




BPL 

SUM 

(no - wait 

34 

155500 

110160 

000006 



MOVB 

R1,4(R0) 

(send char to reciever 

37 

155504 

105710 



sum: 

TSTB 

(RO) 

1 received a char 

38 

155504 

100374 




BPL 

SLU.2 

ino - wait 

39 

155510 

126001 

000002 



CMPB 

2(R0),Ri 

Idot what you xiiitted 

40 

155514 

001010 




BNE 

2t 

Ino - error 

41 

155516 

105201 




DO 

R1 

(produce next ascii character 

42 

155520 

120127 

000072 



CHPB 

R1.472 

I 

43 

155524 

001362 




BNE 

SLU.l 

(loop until checked 0 to 177 

44 

155524 

142760 

000004 

000004 


BICB 

♦4,4(R0) 

(reset aaintenace bit 

45 

155534 

105005 




CLRB 

R5 

(yes, clear error 

44 

155534 

005705 



2 $: 

TST 

R5 

(check for error 

47 

155540 

001005 




BNE 

4t 

(branch if error 

48 

155542 

132737 

000002 

177544 


BITB 

♦2.84177564 

(see if in diadno »ode 

49 

155550 

001401 




BEO 

4t 

(if not then Soodby 

50 

155552 

000670 




BR 

BIA6N0 

iloop for ever 

51 

52 

53 

54 

55 

155554 

000167 

161100 


4t: 

JMF 

♦START 

(initialize scratchpad RAM 3rd start aonitor 





. ENABL 

LSB 



155560 

062100 



chksum: 

: ADD 

(RD+.RO 

(accuaulate checksu* 

54 

155562 

020102 




CMP 

R1.R2 

(done yet 7 

57 

155564 

103775 




BLO 

CHKSUH 

(no 
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SB 

155566 

000305 

SUAB 

R5 


59 

155570 

005700 

TST 

RO 

ftest result 

60 

155572 

001001 

BNE 

It 

ichecksu* failed 

41 

155574 

105005 

CLRB 

R5 

ielse clear error 

62 

155576 

000207 

1$: RTS 

PC 
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1 

i 


. SBTTL Special Data Structures 


3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 


INSTRUCTION ENCODE/DECODE and COMMAND DECODE TABLES: 

The five parameters listed for each opcode are! 

1. Base value of the opcode 

2. String nate of the opcode 

3. Parameter organization! 

00 - decode condition code bits (N»Z,V,C) 

01 - nnnnnn (16 bit nuiber) 

02 - no parameters 

03 - nnn (B bit number) 

04 - xxx (8 bit displacement) 

05 - r.tfd 

06 - dd or ss 

07 - ss>dd 

10 - r 

11 - r,nn (6 bit displacement) 

4. Eouals 1 if instruction is legal in taste mode 

The fifth parameter is a code used bss the top-level parser to decode ASCII 
characters in the 040 to 077 range. The values of this parameter are: 

0 - Illegal character at top level 

1 - Interpret as the first character of an expression or instruction 

2 - !» or label definition 

3 - i» or comment 

4 - => or symbol definition 

5 - ?» or tune as a number 

6 - Valid as an operator within expressions 

7 - Both 1 and 6 apply 


34 

.MACRO 

INSTRS 



35 

CODE 

000000, <HALT 

>,2,0,0 

j space 

36 

CODE 

000001, <NAIT 

>,2,0,6 

i! 

37 

CODE 

000002, CRTI 

>,2,0,0 

)• 

38 

CODE 

000002, <BPT 

>,2,0,1 

;» 

39 

CODE 

000004, <I0T 

>,2,0,1 

it 

40 

CODE 

000005, <R£SET >,2,0,0 

n 

41 

CODE 

000006, <RTT 

>,2,0,6 

;t 

42 

CODE 

000007, < 

>,1,0,1 


43 

core 

000100,<JKP 

>,6,0,0 

it 

44 

CODE 

000200, <RTS 

>,10,0,0 


45 

core 

000210, < 

>,1,0,6 

it 

46 

CODE 

000240, <N0P 

>,2,0,7 

i+ 

47 

core 

000241, <CL 

>,0,0,0 

i , 

48 

CODE 

000257, <CCC 

>,2,0,7 

5- 

49 

CODE 

000260, < 

>,1,0,1 

i > 

50 

CODE 

000261, <SE 

>,0,0,6 

i/ 

51 

CODE 

000277, <SCC 

>,2,0,1 

iO 

52 

CODE 

000300, <SNAB 

>,6,0,1 

il 

53 

core 

000400, <BR 

>,4,0,1 

i2 

54 

core 

001000,<BN£ 

>,4,0,1 

J3 

55 

CODE 

001400, <BEQ 

>,4,0,1 

i4 

56 

core 

002000, <BBE 

>,4,0,1 

!5 

57 

CODE 

002400, <BLT 

>,4,0,1 

i6 
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58 



CODE 

003000/ <BGT 

>,4,0,1 

59 



CODE 

00340Q,<BIE 

>,4,0,1 

60 



CDDE 

004000, <JSR 

>,5,0,1 

61 



CODE 

005000, <CIR 

>,6,1,2 

62 



CODE 

005100/ <DOM 

>,6,1,3 

63 



CODE 

005200, <1NC 

>,6,1,1 

64 



CODE 

005300 r<DEC 

>,6,1,4 

65 



CODE 

005400»<MEB 

>,6,1,0 

66 



CODE 

005500 /< ADC 

>,6,1,5 

67 



CODE 

005600 /<SBC 

>,6,1,0 

68 



CODE 

005700. <TST 

>,6,1,0 

69 



CODE 

006000 /<RQR 

>,6,1,0 

70 



CODE 

006100. <ROL 

>,6,1,0 

71 



CODE 

006200. <ASR 

>,6,1,0 

72 



CODE 

006300. <ASL 

>.6,1,0 

73 



CODE 

006400. < 

>,1,0,0 

74 



CODE 

006700. <SXT 

>,6,0.0 

75 



CODE 

007000 >< 

>,1,0.0 

76 



CODE 

010000, <MOV 

>.7,1,0 

77 



CODE 

020000,<CMP 

>,7,1,0 

78 



CODE 

030000»<8IT 

>,7,1,0 

79 



CODE 

040000, <BIC 

>,7,1,0 

80 



CODE 

050000/<BIS 

>,7,1,0 

81 



CODE 

060000. <ADD 

>.7,0,0 

82 



CODE 

070000/< 

>,1,0,0 

83 



CODE 

074000>«OR 

>,5,0,0 

84 



CODE 

075000, < 

>,1,0,0 

85 



CODE 

077000. <S08 

>,11,0,1 

86 



CDDE 

100000/ <BPL 

>,4,0,0 

87 



CODE 

100400, <BMI 

>,4,0,0 

88 



CODE 

101000/ <BHI 

>,4,0,0 

89 



CODE 

101400, <BLOS 

>,4,0,0 

90 



CODE 

102000. <BVC 

>,4,0,0 

91 



CODE 

102400, <BVS 

>,4,0,0 

92 



CODE 

103000/<BCC 

>,4,0,0 

93 



CODE 

103000 / <BHIS 

>,4,0,0 

94 



CODE 

103400. <BCS 

>,4,0,0 

95 



CODE 

103400, <8L0 

>,4,0,0 

96 



CODE 

104000, <EMT 

>,3,0,0 

97 



CODE 

104400, <TRAP 

>,3,0,0 

98 



CODE 

105000, < 

>,1,0,0 

99 



CODE 

106400, <MTPS 

>,6,0,0 

100 



CODE 

106500, < 

>,1,0,0 

101 



CODE 

106700, <Hf PS 

>,6,0,0 

102 



CDDE 

107000, < 

>,1,0,0 

103 



CODE 

160000, <SUB 

>,7,0,0 

104 



CODE 

170000, < 

>,1,0,0 

105 



,ENDM 



106 






107 

155600 

000241 

CBASESl ! .WORD 

000241 

JCLC 

108 

155602 

000242 

.WORD 

000242 

JCLV 

109 

155604 

000244 

.WORD 

000244 

1CLZ 

110 

155606 

000250 

.WORD 

000250 

)CLN 

111 

155610 

000261 

.WORD 

000261 

;sec 

112 

155612 

000262 

.WORD 

000262 

, SEV 

113 

155614 

000264 

.WORD 

000264 

1SEZ 

114 

155616 

000270 

.WORD 

000270 

,‘SEN 
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115 


114 




.MACRO 

COPE PASVAL . MNEM .FORMAT , BYTHOD , rt ISC 

11? 




• WORD 

BASVAL 


118 




.ENPH 



11? 

155420 



rases:: instks 



120 







121 




.MACRO 

CODE BASVAL , MNE M . FORMAT , BYTHOB , HI SC 

122 




.byte 

<BYTH0Dt209>KF0RMAT»10: tMISC 

123 




•ENDH 



124 

154034 



paraksiiinstrs 



125 







124 

154142 

072460 

000000 

BSYMS:: .RAP50 

/RO / 

.Predefined syebols eust not be 3 characters ir. 

127 

154144 

072530 

000000 

.RAP50 

/R1 / 

ilensth. or else a 'byte *ode' version of each 

128 

154152 

072600 

000000 

.RAB50 

/R2 / 

.na»e will also »atch> i.e, XY2B will match to 

129 

154154 

072650 

000000 

.RAB50 

/R3 / 

iXYZ. Only bst.e node enenor.ics should be 3 

130 

154142 

072720 

oooooo 

•RAB50 

/R4 / 

.characters Ions. 

131 

154144 

072770 

000000 

.RAB50 

/R5 / 


132 

154172 

074500 

oooooo 

.RAB50 

/SP / 


133 

154174 

062170 

oooooo 

.RAP50 

/PC / 


134 

154202 

063370 

oooooo 

OSYMF'S! .RAD50 

/PS ! 


135 

154204 

111100 

oooooo 

.RAP50 

/MP / 


134 

154212 

127400 

oooooo 

•RAB50 

/. / 


137 

154214 



dsymur: 



138 

154214 

000000 

oooooo 

.RAB50 

/ / 


139 

154222 

010530 

oooooo 

•RA050 

/HI / 


140 

154224 

010600 

oooooo 

.RAB50 

/B2 ! 


141 

154232 

010650 

oooooo 

.RAD50 

/B3 


142 

154234 

010720 

oooooo 

■RAB50 

/B4 / 


143 







144 

154242 

031324 

062000 

mmkb::,rab5o 

/HELP / 


145 

154244 

027030 

oooooo 

.RAD50 

/GO 


144 

156252 

074745 

062000 

.RAB50 

/STEP / 


147 

154254 

042073 

075430 

DlftVBt ! .RA050 

/PASS’ / 


148 

154262 

062073 

075700 

.RAB50 

/PASS2 / 


149 

156244 

032153 

074400 

.RAD50 

/HOST / 


150 

154272 

054740 

060314 

.RAD50 

/NOHOST/ 


151 

154274 

076464 

042300 

.RAP50 

/TALK / 


152 

156302 

046531 

014400 

.RA030 

/LOAB / 


153 

154306 

131014 

004444 

.RAP50 

/.START/ 


154 

154312 

127726 

014400 

.RAD50 

/.EM / 


155 

156314 

127736 

020540 

•RAD50 

/.EVEN . 


154 

156322 

127473 

012061 

, RAD50 

/.ASCII/ 


157 

156324 

127551 

076710 

.RAB50 

/.BYTE ! 


158 

156332 

131247 

070440 

.RAD50 

/.WORD / 


159 

154334 

127534 

042420 

.RAB50 

/ . BLKB / 


160 

156342 

127534 

044130 

.RAD50 

/.BLKU / 


141 

154344 

003243 

057665 

OIRVBA! .RAD50 

/A8S0LU/ 


142 

154352 

011366 

011624 

DIRVBB! .RAB30 

/CANCEL/ 


143 

156356 

021411 

074400 

PIRVBO: .RAP50 

/EXIT / 


144 

156362 

010174 

017500 

DIRVBH: .RAB50 

/BYTE / 


145 

154366 

035203 

077745 

BIRVBI1 . RAD50 

'INSTRO • 


144 

156372 

012245 

004420 

, RAPSO 

/CLEAR / 


147 

154376 

014724 

021145 

.RAB50 

/DELETE/ 


148 

156402 

111052 

014400 

DIRVBH! .RAB50 

/WORB / 


149 

156406 



pirvbg: 



170 

156404 

070530 

017574 

MRVBP1 . RAD50 

/REPEAT/ 


171 

156412 

075245 

007344 

PI ROBS: .RAC50 

/SYMBOL/ 
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172 

154414 

074017 

110727 

DIRVPT: .RAD50 

/SHOHMO/ 

173 

154422 

074017 

111225 

.RAB50 

/SHGURE-' 

174 

156424 

074017 

111321 

.RAD50 

/ SHOWS V 

175 

154432 

106257 

053600 

.RAP50 

•VTGN / 

174 

156434 

10625? 

023160 

.RAD50 

/VTOFF / 

177 






178 

154442 

012243 

000000 

CMNEMSl i .RAD50 

/CL C / 

179 

154444 

012266 

oooooo 

. RAD50 

/CLV ■' 

180 

154452 

012272 

oooooo 

■RAB50 

/cl: / 

181 

154454 

012254 

oooooo 

.RADSO 

/cm / 

182 

154462 

073613 

oooooo 

.RAD50 

/SEC / 

183 

156446 

073636 

oooooo 

.RAD50 

/SEV / 

184 

156472 

073642 

oooooo 

, RAD50 

/SEZ 7 

185 

154474 

073624 

oooooo 

.RAD50 

/SEN / 

184 






187 




.MACRO 

CODE BASVAL . KNEM . FORMAT * BYTMOD ■ HI SC 

188 




.RAD50 

’HNEM* 

189 




,£NDM 


190 

154502 



MNEMSi: 1NSTRS 


191 


156566 


MHCCC « 

MNEMS1064 

192 


000770 


TOPNAM " 

. - DSYMS ilensth of precedir.3 RAD50 table 
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1 

2 

3 

4 

5 

6 

7 

8 
9 
10 
11 
12 

13 

14 

15 


000442 


+4 


H 


.SBTTL Spare Locations* Checksuti and RDM I.D. 

The locations defined by the following directive are free and *ust be 
zero for the power-up diadnastics to work properly. When 3ddins cade 
in this space or chandind any of the previous code* adjust the checksum 
value at CHECKS - 157774 so that the ROMs as a whole will have a :ero 
word checksu*. 


.REFT <157774-. > 

.BYTE 0 
.ENBft 

The following word adjusts the ROM checksu* to zero. 


16 


! — 




17 






IB 157774 

052744 

checks: : 

.WORD 

52744 

f 12-MAY-83 R. Arnott 

19 






20 


JH 




21 


i The 

last 

byte in 

each of the ROMs is used to identify the ROMs 

22 






23 






24 157774 

010 

LD.IDi: 

■ BYTE 

010 

(Version 1 .Or low byte 

25 157777 

010 

hi.id:: 

.BYTE 

010 

(Version 1 . 0 r hidh byte 

26 






27 160000 

140000 

end:: 

.END 

START 
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ADBIF 

152154 G 

ADRCHK 

154610 G 

ADRCH1 

154524 C 

ADRCH2 

154530 6 

ADVADR= 

007334 G 

ASCOUT 

133626 G 

ASCRAD 

154416 G 

AUXFLG= 

007711 G 

AUXIN = 

000120 G 

AUXOUT= 

000124 G 

A*CREG= 

177452 G 

AiRBUF= 

177550 6 

A4SREG- 

177552 G 

AIX8UF- 

177450 G 

BASES 

155620 G 

BCDKEY 

140050 C- 

BCBT 81 

136522 

BINASC 

154214 G 

BINAS1 

154254 G 

BLNKDS 

136350 

8LNKHI 

136344 G 

8LNKL0 

136136 G 

BLOAD 

150442 G 

BOTTOH= 

007346 G 

BP 

007630 G 

BRANCH 

153266 

BRBISP 

153024 G 

BREAK 

137114 G 

BRKFIL= 

007760 G 

BRKPT 

137174 G 

BRKP1 

141466 

BUFFER^ 

007470 G 

CANCEL 

142246 G 

CBASES 

155600 G 

CHECKS 

157774 6 

CHKSUM 

155560 G 

CHRGGT 

133530 G 

CHR01 

133540 G 

CHR02 

133554 G 

CL RAPE 

151146 

CMNEMS 

156442 G 

CM0N1T 

142724 G 

CM0N1 

142572 G 

CH0N2 

143164 G 

CM0N3 

143216 S 

CM0N31 

143224 

CM0N4 

143246 G 

CM0N5 

143604 G 

CH0N6 

143616 G 

CM0N7 

143652 

CNTLC = 

007344 G 

COMACH 

152670 

CDMLUP 

143646 

CONBRK= 

000140 G 

CONCOB 

153172 G 

CONFLG^ 

007710 G 

CONI N - 

000060 G 


CONOUT= 

000064 G 

CONTIN 

143612 G 

COUNTS 

007340 G 

COUNT 2 - 

007341 G 

CRLF 

133524 G 

CURCOHs 

007326 G 

C4RBUF- 

177562 G 

C»RCSRr 

177560 G 

C4XBUF* 

177566 G 

CJXCSR* 

177564 G 

DEBNC£= 

007704 G 

BECBSP 

140030 G 

DELETE 

147444 G 

BELIM * 

007345 G 

DELSYH 

151674 G 

BGOISP 

140014 G 

B1AGN0 

155334 G 

DIGEXE 

140542 G 

DIRVBA 

156346 

DlfiVBB 

156352 

BIRVBD 

156356 

DIRVBH 

156362 

DIRVBI 

156366 

tlIRVBN 

156402 

8IR0BG 

156406 

BIRVBP 

156406 

DIRVBS 

156412 

DIRVBT 

156416 

DIRVBI 

156256 

DIRVRB 

156242 G 

BI5PLA 

135344 G 

DIVID 

152164 G 

DO COMM 

144124 

DOCR 

144170 G 

BDEXPR 

144274 G 

OGFUNC 

142226 G 

BOLABL 

151426 G 

BOMVAL 

144134 

DDOPER 

145124 

DOSYMB 

151164 G 

OOVERB 

147172 G 

BSP DEC 

136366 G 

D5PPIG 

135772 G 

BSPLNM 

136044 G 

DSPNAM 

136112 S 

DSPMJM 

136050 

DSPTBL 

140360 G 

BSPUNM 

136036 G 

DSYMPS 

156202 

DSYHS 

156142 G 

B5YHUR 

156216 

EARS 

146150 G 

EBYT 

146176 G 

ECAN 

146156 G 

ECHO 

134142 G 

ECLR 

146222 G 

ECON 

146354 


EOEL 146232 G 
EDEL1 146240 
EERR 146360 
EEXT 144320 G 
EFNB 144560 G 
EINS 146210 G 
EMOB 146760 G 
EMOV 146364 G 
EMTRAP 153152 G 
END 140000 G 
ENBEXP 145002 
ENUM 146270 G 
EREG 146332 G 
EREF 146274 G 
ERROR 143212 G 
ERR0R2 143720 
ERRSEG 135756 
ESYM 144312 G 
EXDOOP 145220 
EXINIT 145172 
EXIKI1 145200 
EXF'FLG= 007332 G 
FERCHR 137542 G 
FERROS 137350 G 
FIN® 150114 G 
FIXBP 140170 
FLAGS1- 007706 6 
FMESAG 137424 G 
FHESG1 137434 
FMESG2 137450 
FMESG3 137472 
FMESG4 137522 
FNCDDN 142264 
FNCTBL 142234 G 
FP = 007631 G 
FPAREN 145162 
FULOPR 152364 G 
F.ABS = 000002 
F.ABDR= 000004 
F.APFL= OlOOOO 
F.A64X= 000200 
F.BRKA= 000400 
F.8RKG= 001000 
F .BRKS- 000020 
F.BYTB- 000001 
F.BYTH= 000200 
F.CHAN= 000002 
F.CGhM= 000020 
F.CPBO- OOOOIO 
F.CPB1- 000020 
F.CPB2= 000040 
F.BATA: OOOOOl 
F.FUNC= 000040 
F.HOST= 004000 
F.INST= 000100 
F.KEYP- 002000 
F.LDST= 000100 


F.LOAB= 

000200 

F.MNEN= 

OOOOOl 

F.NULL= 

000004 

F.PAS1= 

100000 

F.PROT- 

040000 

F .REG = 

090010 

F.SAVX- 

OOOOIO 

F.SST = 

000200 

F > SST1 = 

OOOOOl 

F.STOP- 

000002 

F.TBAS= 

020000 

F,UNBF= 

000004 

F.USER= 

OOOIOO 

F.USRB- 

OOOOIO 

F.VALU= 

000002 

F.VT = 

004000 

GENEXP 

144512 G 

GETARG 

152642 G 

GETBP 

133436 G 

GETCH 

133316 G 

GETCHC 

133412 G 

GETBST 

153662 

GETERH 

144556 G 

GETEXP 

144522 G 

GETEX1 

144540 

GET I NS 

152206 G 

GETKEY 

140044 G 

GETLCH 

133406 G 

GETL1H 

133240 G 

GETLIT 

146060 G 

GETNAN 

145450 G 

GETNMB 

145306 G 

GETNUM 

140054 G 

GETNXT 

133426 G 

GETDF'R 

144724 G 

GETOPV 

144720 6 

GETREG 

152322 G 

GETSYM 

151560 G 

GNEXAM 

141146 G 

GO 

147432 G 

GOILEB 

142270 G 

GRET 

143052 

HELP 

147320 6 

HEXSEG 

136016 G 

HFP - 

007672 G 

HGETCH 

134744 G 

HMD 

157777 G 

HOST 

150222 G 

HOSTBF= 

007632 G 

HOST IN 

134540 G 

HBTFLG= 

007673 G 

INSDN1 

152744 

INSBN2 

152760 

INSDOH 

152770 

INSBSF' 

152276 

INTDON 

153564 

INTDSP 

153514 


I 0INIT 

135C76 G 

IOVECT 

135224 G 

ITRAP 

137334 G 

KABRCH 

142156 

KEYBCD 

136514 G 

KEYCMD 

140330 G 

KEYCH1 

140344 G 

KEYGET 

136436 G 

KEY6E1 

136470 

MYPIV- 

007676 G 

K£YPVS= 

007700 G 

KLOOF 

140306 G 

KLOOP1 

141170 

KLOQF'2 

141644 

KHONIT 

140200 G 

LASCQM= 

007327 G 

LASLIN= 

007325 G 

LEDIV = 

000104 G 

LERR 

150472 

LEVEL = 

007333 G 

LINEIN 

133000 G 

LINFLG= 

007324 G 

LOAD 

150442 G 

LOBLNK 

140040 G 

LGBISP 

140024 G 

LOGANB 

152134 G 

LOGOR 

152130 G 

LQ.ID 

157776 G 

LPAREN 

145C46 

MATSYh 

151632 G 

NF8251: 

007464 G 

NNCCC = 

156566 G 

MNEMS 

156502 G 

NODE = 

007342 G 

MDN1TR 

140010 G 

NQN1T1 

137556 0 

MOVE 

150044 G 

MULTIP 

152142 G 

NAMTBL 

136154 G 

NOHOST 

150306 G 

NOPCOB 

153540 G 

NOPROT 

150134 G 

NPROT 

142562 G 

NUMCH 

154356 G 

NUH5ET 

136546 G 

OBBABR 

154512 

OPERATE 

007343 G 

OF'RANB 

153016 G 

DPRTPL 

145250 

OPTION 

150352 

OVERFL 

143104 

PADRAB 

146050 

PABR1 

146040 

PARAMS 

156034 G 

F'ARDSP 

144104 

PASS1 

150202 6 

PASS2 

150212 G 
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Sy»bol table 


PDSVAL 

145470 G 

SAVEXP= 

007334 G 

TCONCB 

154132 G 

TYPSYH 

152102 G 

♦GDI 

141722 G 

PERNOD^ 

007331 G 

SCRPADr 

007400 G 

TETtTRP 

153722 G 

TYPTBL 

152040 G 

♦HALT 

136752 G 

PFVEC < 

000024 G 

SCRPD1 = 

004500 G 

TFULDP 

153750 G 

UCSAVE 

137004 G 

♦MONIT 

137570 G 

PRINT 

133744 G 

SEGBUF= 

007712 G 

TINE = 

007730 G 

UNBEFX 

151372 

♦NULL I 

135676 G 

PRINTA 

133754 G 

SETAUX 

135170 G 

THPM0D= 

007330 G 

UPELNK 

140034 G 

♦NUMER 

140430 G 

PRINT 1 

134004 G 

SETAX1 

135124 

T0PNAM= 

000770 G 

UPDISF 

140020 G 

♦PC = 

007750 G 

PRINTS 

133774 G 

SETAX2 

135124 

TOPRND 

153554 G 

USERAM 

154476 

♦PS = 

007752 G 

PRINT3 

134014 G 

SETMOD 

144104 

TPREG 

153612 G 

USERIV= 

000100 G 

♦REG 

141610 G 

PRINT4 

134010 

SLUTST 

155454 

TREGIS 

153636 G 

USERVS- 

007702 G 

♦RPEAT 

150012 G 

PRNERR 

143120 G 

SLU.l 

155472 

TRGBST 

153574 G 

VCON 

150142 

♦RO = 

007732 6 

PR0TED 

150172 G 

SLU.2 

155504 

TRTSRG 

153566 G 

VERR 

150146 

♦fil - 

007734 G 

PURGE 

133450 G 

SOBDSP 

153102 G 

TSOBDS 

153676 G 

VERR1 

150162 

♦R2 = 

007736 G 

PWRFVS- 

007474 G 

SPCLBF= 

007724 G 

TSRBST 

153544 G 

VRBDSP 

147220 G 

♦R3 - 

007740 G 

P*CREG= 

177444 G 

SPBT8L 

142302 G 

TYPAHR 

155250 G 

VRBBS1 

147262 

♦R4 = 

007742 G 

P»P0RA= 

177440 G 

SPEEDS 

142320 G 

TYPASC 

154634 G 

VTJMP 

147402 

♦R5 = 

007744 G 

PIP0RC* 

177444 G 

SRCDST 

153004 G 

TYPBEC 

154640 G 

VTOFF 

147406 

♦SP = 

007744 G 

PiP0RB= 

177544 G 

STACK = 

007462 G 

TYPINS 

153306 G 

VTON 

147374 

♦SST 

141706 6 

P*PQftI= 

177542 G 

START 

140000 G 

TYPE IN 

155202 G 

WHAT 

143076 

♦START 

136460 G 

PdPGRO- 

177442 G 

STEP 

147416 G 

TYPLOC 

155100 G 

♦ABBR = 

007756 G 

♦UR = 

006500 G 

RABCH 

154302 G 

SUBTR 

152160 G 

TYFlfll 

155170 G 

♦APBRN 

141550 G 

♦WATCH= 

007754 G 

REGDST 

152724 G 

TALK 

150504 G 

TYPL01 

155114 G 

♦AE'V 

141232 G 

♦ .ASCI 

147700 G 

R£PEAT= 

007446 G 

TALK1 

150530 

TYPL02 

155132 G 

♦ BACK 

141372 G 

♦ .BLIP 

147634 G 

REF0F0 

151412 

TBLBOT- 

007462 G 

TYPNN1 

155074 G 

♦FRKP 

141462 G 

♦ .BLKU 

147654 G 

RERR 

150152 

TBLFUL 

151504 

TYPNUH 

155064 G 

♦CLR 

141110 G 

♦.BYTE 

147466 G 

RPAREN 

145152 

TBLTOP= 

007320 G 

TYPOCT 

154744 G 

♦EXAM 

141122 G 

♦.EVEN 

147776 G 

RSTART 

140004 G 

TBRBSP 

153734 G 

TYPREG 

151730 G 

♦FUNC 

141650 G 

♦.STRT 

150344 

RTSREG 

152714 G 

TCOMMA 

153602 

TYPSPC 

155042 G 

♦GO 

141714 G 

♦ .WORD 

147560 G 


R1X40 134122 G 

. ARS. 140000 000 (RV,I,GBL>ARS,0VR> 

000000 001 (RUr I iLCL»R£L»CON) 

Errors detected! 0 

Ml Asseabler statistics 


Work file reads! 0 
Work file writes! 0 

Size of work file! 10740 Words ( 43 Fades) 
Size of core pool! 13312 Words ( 52 Pedes) 
Operated ssste*! RT-11 

Elapsed tue! 00 102130.51 
BK ! HGN2 > DK ! H0N2/C=DK ! H0N2 
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APPENDIX B 
SCHEMATIC DRAWINGS 



Figure B-l DCT1 1-EM Component Placement 
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APPENDIX C 
ERROR MESSAGES 


Cl DIAGNOSTIC ERROR MESSAGES 

The following flashing error messages are displayed if the DCTl 1-EM fails its diagnostic tests. These are 
fundamental errors and must be corrected before you attempt to do anything else. 


UPPER 

DISPLAY 


LOWER 

DISPLAY 


MEANING 




RAM checksum test failed. Try 
replacing RAM chips. 


ROM checksum test failed. Try 
replacing ROM chips. 


RAM and ROM checksum tests failed. 
Beard may have major problems. 


OLART feedback test failed. 
Board may have major problems. 


C.2 KEYPAD ERROR MESSAGES 

If the DCTl 1-EM detects an error while you are using the keypad, it displays a flashing error message on 
the upper and lower rows of LEDs. The upper row of LEDs displays a two-character error code and the 
lower row of LEDs displays: 



The entire error message disappears and the DCTl 1-EM is returned to register mode when you press the 
HALT switch or any key on the keypad. 

The keypad error messages are as follows. 


UPPER 

DISPLAY 


LOWER 

OISPLAY MEANING 


C b 


I 


E r 


You tried to execute a program with 
a 8PT instruction m it. 


A break was detected on the console 
terminal port while the keypad was 
active. 


C-l 

















VI 



1 






p 




_ 

_ 

u 

r 

_ 




You tr*ed to execute a program with 
an invalid instruction in ft. 


You tried to execute a program and 
used an unacceptable value for the 
SP. See chapter 5 for more information. 


You tried to alter a protected location 
in the keypad monitor scratch pad 
{locations 7400 through 7776). 


C.3 CONSOLE MESSAGES 

The console displays 12 different messages (Table C-l). Most of these are error messages that indicate a 
problem with your input or with the execution of your program. This paragraph explains each of the 
messages and its probable causes. 

Some of the error messages are preceded by the portion of your input that caused the error. If this is the 
case, your erroneous input is displayed between backslashes on the line above the error message. 
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Table C-l Console Messages 


Message 

Meaning 

BRANCH OUT OF RANGE 

You input a branch instruction which was too far from the branch destina- 
tion. Recall that branch instructions have a range of -128 to 127 (decimal) 
words. 

BREAK POINT 

ENCOUNTERED 

A breakpoint (Bl, B2, B3, or B4) or a BPT instruction was encountered 
while your program was executing. 

BUFFER OVERFLOW 

The console monitor was accepting input from a host and a line exceeding 96 
characters was received. As with all errors generated during host loading, 
this error stops the DCT1 1-EM from loading further input from the host. 

CONSOLE BREAK 

The BREAK key on the console keyboard was pressed. If you are executing 
a program, execution stops and the DCTI 1-EM internal register values at 
the time of the break are saved. If you arc in HOST, TALK, or LOAD 
modes. CONSOLE BREAK causes a return to NOHOST mode. 

INVALID INSTRUCTION 
ENCOUNTERED 

An invalid op code was encountered while your program was running 

INVALID STACK POINTER 

The stack pointer did not have a value between 4 and 6500 (inclusive) when 
you started your program or when you single stepped. 

NOT IN USER RAM 

You attempted to alter a location that was in the protected monitor 
scratchpad area (locations 6500 through 7777, inclusive). 

ODD ADDRESS 

You attempted to access a full word in RAM on an odd address boundary 
Use the BYTE mode to examine or alter locations at odd addresses. 

REPEAT OF ZERO 

You input a REPEAT command that had a count of zero. 

TABLE FULL 

You attempted to define more than 66 symbols. 

UNDEFINED EXPRESSION 

You attempted to use an undefined parameter, operand, or other data object 
when a defined expression was required, For example, you referenced an 
undefined symbol while in PASS2 mode 

WHAT ? 

You attempted to input a line that had a syntax error in it 
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INDEX 


A 

ABSOLU command, 4-7, 4-29 
Address decoding, 6-6 
Address pointer, 4-6 
Address space, 5-13 
standard RAM space, 5-15 
expansion RAM space, 5-15 
monitor space, 5-15 
I/O space, 5-15 
for external hardware, 5-16 
reserved, 5-16 
Altering memory 
with console, 4- 1 0 
with keypad, 3-10, 3-32 
Altering registers 
with console, 4-5 
with keypad, 3-4, 3-32 
.ASCII command, 4-21, 4-29 

B 

.BLKB command, 4-21, 4-29 
.BLKW command, 4-21, 4-29 
Breakpoints canceling 
with console, 4-20 
canceling with keypad, 3-27, 3-32 
displaying with console, 4-20 
displaying with keypad, 3-20, 3-32 
setting with console, 4-19 
setting with keypad, 3-20, 3-32 
Buffers, 6-5 

.BYTE command, 4-21, 4-30 
BYTE command, 4-7, 4-30 

C 

Cancel breakpoints, 3-27, 3-32 
CANCEL command, 4-16, 4-20, 4-30 
CLEAR command, 4-14, 4-30 
Connectors, 6-8 
60-pin (Jl), 6-8 through 6-9 
auxiliary serial (J3), 6-10 
console serial (J4), 6-11 
power supply (J2), 6-10 
Console 

altering memory with, 4-10 
altering registers with, 4-5 
command summary, 4-29 


connecting a, 4-1 
control commands, 4-3 
default modes, 4-2, 4-21 
entering programs with, 4-12 
examining registers with, 4-5 
examining memory with, 4-7 
host loading with, 4-22 
input rules, 4-2 
monitor, 1-1, 3-28, 5-1, 5-15 
output formatting modes, 4-6 
single stepping with, 4-17 
transferring control to and from, 4-2 
using breakpoints with, 4-19 
using watchpoint with, 4-16 
Console commands 
ABSOLU command, 4-7, 4-29 
.ASCII command, 4-21, 4-29 
.BLKB command, 4-21, 4-29 
BLKW command, 4-21, 4-29 
.BYTE command, 4-21, 4-30 
BYTE command, 4-7, 4-30 
CANCEL command, 4-16, 4-30 
CLEAR command, 4-14, 4-30 
DELETE command, 4-14, 4-30 
.END command, 4-26, 4-30 
.EVEN command, 4-21, 4-30 
EXIT command, 4-2, 4-30 
GO command, 4-16, 4-30 
HELP command, 4-21, 4-30 
HOST command, 4-23, 4-30 
INSTRU command, 4-7, 4-30 
LOAD command, 4-24, 4-30 
NOHOST command, 4-23, 4-30 
PASS1 command, 4-25, 4-30 
PASS2 command, 4-25, 4-30 
REPEAT command, 4-2 1 , 4-31 
SHOWMO command, 4-21, 4-31 
SHOWRE command, 4-5, 4-31 
SHOWSY command, 4-14, 4-31 
.START command, 4-25, 4-31 
STEP command, 4-17, 4-31 
SYMBOL command, 4-7, 4-31 
TALK command, 4-23, 4-38 
VTOFF command, 4-3, 4-31 
VTON command, 4-3, 4-31 
.WORD command, 4-21, 4-3! 

CTRL/A, 4-3, 4-24, 4-25, 4-32 

CTRL/C, 4-3, 4-32 
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I 


CTRL/O, 4-3, 4-24, 4-32 
CTRL /Q, 4-3, 4-32 
CTRL/R, 4-3, 4-32 
CTRL/S, 4-3, 4-32 
CTRL/U, 4-3, 4-32 
CTRL/X, 4-3, 4-32 
CTRL/Y, 4-3, 4-32 

D 

Default operating modes, 2-3, 4-2, 4-21 
DCT 1 1 -A A microprocessor, 1 - 1 , 6-3 
DELETE command, 4-14, 4-30 
Directives, 4-20 

Debugging, see Breakpoints, 

Single stepping, Watchpoints 

E 

.END command, 4-36, 4-30 

EPROM, 6-4 

.EVEN command, 4-21, 4-30 
EXIT command, 4-2, 4-30 
Error Messages 
console, C-2 
diagnostic, 2-4, C-l 
keypad, C-l 
Examining memory 
with console, 4-7 
with keypad, 3-7 
Examining registers 
with console, 4-6 
with keypad, 3-2 
Expressions, 4-3 

G 

GO command, 4-16, 4-30 
Go with LEDs, 3-27, 3-32 

H 

Host Loading 

configuration, 4-22 
example of process, 4-28 
preparing a loadable program, 4-25 
the HOST command, 4-23 
the TALK command, 4-23 
HELP command, 4-21, 4-30 
HALT switch, 3-24, 6-7 
HOST command, 4-25, 4-30 


INT switch, 3-25, 6-7 
INSTRU command, 4-7, 4-30 
Instruction format, 4-11 
Interrupts, 5-5, 6-6 

J 

Jumpering, 2-4, 6-4 

K 

Keypad 

altering registers with, 3-4 
altering memory locations with, 3-10 
command summary, 3-32 
entering programs with, 3-12, 3-16 
examining registers with, 3-2 
examining memory locations with, 3-7 
monitor, 1-1, 2-3, 5-1, 5-15 
number system, 3-2 
single stepping with, 3-17 
special functions, 3-26 
cancel breakpoints, 3-27, 3-32 
go with LEDs, 3-27, 3-32 
release protection, 3-30, 3-32 
set baud rates, 3-28, 3-32 
start console, 3-34, 3-32 
using breakpoints with, 3-19 
using watchpoint with, 3-22 

L 

LOAD command, 4-24, 4-30 

M 

MACRO-11, 4-20 
Memory expansion module, 6-1 1 
Monitor, 1-1, 2-3, 3-8, 3-28, 3-30, 4-2, 5-1, 
5-15,6-4 

Monitor subroutines, 
console, 5-8 through 5-13 
ASCOUT, 5-9 
CHR02, 5-9 
CHROUT, 5-9 
CRLF, 5-9 
GETCH, 5-9 
GETCHC, 5-9 
GETLIN, 5-8 
GETNXT, 5-9 
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PRINTA, 5-9 
TYPDEC, 5-9 
TYPOCT, 5-9 
using, 5-10 

keypad/LED, 5-2 through 5-8 
BCDKEY, 5-3 
DEC DSP, 5-3 
DGDISP, 5-2 
GETKEY, 5-3 
GETNUM, 5-4 
LOBLNK, 5-3 
LOD1SP, 5-3 
UPBLNK, 5-3 
UPDISP, 5-3 
using, 5-4 

N 

NOHOST command, 4-23, 4-30 

P 

PASSl command, 4-25, 4-30 
PASS2 command, 4-25, 4-30 
Peripheral chips, 6-4 
address decoding, 6-6 
auxiliary serial line (8251 A), 6-5 
DLART console serial line, 6-5 
parallel port (8255A), 6-4 
reserved locations for, 5-15, 6-4 
Processor status word, 3-2 
Power supply 
cable, 2-1 

connector, 2-2, 6-8, 6-10 
requirements, 2-1 

R 

RAM. 6-5 

Release protection, 3-30, 3-32 
REPEAT command, 4-21, 4-31 


STEP command, 4-17, 4-31 
Subroutines, see Monitor subroutines 
SYMBOL command, 4-7, 4-31 
Symbols 
defining, 4-14 
deleting, 4-14 
displaying, 4-14 
symbol name rules, 4-13 
Symbol table 
deleting, 4-14 
displaying, 4-14 
System specifications, 1-1 

T 

TALK command, 4-23, 4-31 
Timing, 6-7 
Traps, 6-6 

U 

User LED, 3-25, 5-5 

V 

VTOFF command, 4-3, 4-31 
VTON command, 4-3, 4-31 

W 

Watchpoints 

canceling with console, 4-16 
canceling with keypad, 3-27 
displaying with console, 4-16 
displaying with keypad, 3-20, 3-22 
setting with console, 4-16 
setting with keypad, 3-22 
WORD command, 4-21, 4-31 


S 

Set baud rates, 3-28, 3-32 
SHOWMO command, 4-21, 4-31 
SHOWRE command, 4-5, 4-31 
SHOWSY command, 4-14, 4-31 
Single stepping 
with console, 4-17 
with keypad, 3-17 
Stack pointer, 2-3, 3-2, 5-2 
.START command, 4-25, 4-31 
Start console, 3-28, 3-32 
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